Меняем строки в TStringGrid

Итак, в этой статье хотел бы поговорить как поменять строки местами в TStringGrid. Задача очень простая, но может кому-то для «лабораторок» пригодится, так многим эта задача не будет совсем тяжелой. Давайте посмотрим так, TStringGrid - этот та же самая матрица, следовательно этот метод можно применять и для нашей матрицы. Сейчас мы это все пройдем просто визуально. Смысл всего это — то, что мы работаем с определенной строкой, то есть мы знаем какие строки мы будем между собой менять. Сейчас я просто поменяю строки 1 со 2-й местами, ну а в следующей статье расскажу как поменять строку с максимальным элементом матрицы со строкой с минимальным элементом матрицы (что также не сложно). У меня на форме следующие компоненты

• TStringGrid
• TButton

Можете установить на форму еще TEdit - для изменения размера массива, но думаю не стоит, не в этом сейчас смысл.

Также не забудьте в свойстве TStringGrid - Options-goEditing - поставить в значение True, иначе Вы не сможете заполнить TStringGrid.

Давайте вернемся к нашей задачи, у нас есть две строки — 1 и 2 строка, которые необходимо поменять между собой. Если мы начнем менять, то значения одной строки будут заменяться, то есть стираться, удаляться говорите как думаете, а если они удаляются, то мы не сможем поставить эти значения в другую строку, следовательно замена не произойдет, просто получиться 2-е одинаковые у нас строки. Для этого нам нужен «посредник«, то есть дополнительный массив, одномерный массив. В него мы запишем все значения первой строки, затем первой строке присвоим значения второй строки, а уже второй строке мы присвоим значения нашего «посредника«, то есть нашего дополнительного массива (а у него записаны значения первой строки, следовательно замена сработает). На Delphi это будет выглядеть примерно так

Исходный код

procedure TForm1.Button1Click(Sender: TObject);
var
 i,j,k:integer;
 a:array[1..100] of integer;
begin
   try
    k:=1;
    for i:=0 to StringGrid1.ColCount-1 do
     begin
      a[k]:=StrToInt(StringGrid1.Cells[i,0]);
      inc(k);
     end;
    for i:=0 to StringGrid1.ColCount-1 do
     begin
      StringGrid1.Cells[i,0]:=StringGrid1.Cells[i,1];
      StringGrid1.Cells[i,1]:=IntToStr(a[i+1]);
     end;
   except
    on e:Exception do
   end;
end;

Как видите все, что я описал выше словами реализовал здесь, как видите ничего сложного, жду Вас в следующей статье по данному вопросу.

Исходники статьи качаем тут

Автор статьи - Andrey53

Метки: TStringGrid, меняем строки в TStringGrid