Здравствуйте.
Задача:
Нужно ввести числа в 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... ) в какую-нибудь переменную.. и вывести.
Помогите пожалуйста.