[Restart]

Здравствуйте.
Задача:
Нужно ввести числа в StringGrid1 (4х4), а потом вывести элементы главной диагонали в StringGrid2 (4x1).

Оба Stringgrid-a типа integer.

Код:

var
  Form1: TForm1;
  SG1  :  Array[1..4,1..4] Of integer;
  SG2  :  Array[1..4] Of integer;
  i, j, c, :  Integer;

Код:

For i:=1 To 4 Do
   For j:=1 To 4 Do
      begin
      If i=j then
    c:= StrToInt(StringGrid1.Cells[i, j]);  //замечание...
      end;

   stringgrid2.Cells[0,j-1] := IntTostr(c)

Да, код ужасен.
Я просто не знаю, как можно записать каждую ячейку диагонали (1х1 - 2х2... ) в какую-нибудь переменную.. и вывести.

Помогите пожалуйста.

[poli-smen]

Сообщение от Restart

Код:

var
  Form1: TForm1;
  SG1  :  Array[1..4,1..4] Of integer;
  SG2  :  Array[1..4] Of integer;
  i, j, c, :  Integer;

Код:

For i:=1 To 4 Do
   For j:=1 To 4 Do
      begin
      If i=j then
    c:= StrToInt(StringGrid1.Cells[i, j]);  //замечание...
      end;

   stringgrid2.Cells[0,j-1] := IntTostr(c)

Да, код ужасен.
Я просто не знаю, как можно записать каждую ячейку диагонали (1х1 - 2х2... ) в какую-нибудь переменную.. и вывести.

Помогите пожалуйста.

Для вывода диагонали квадратной матрицы достаточно одного цикла. Примерно так:

Код:

for i := 1 To 4 do
begin
  StringGrid2.Cells[0, i] := StringGrid1.Cells[i, i];
end;