01.06.2013, 16:58
|
|
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
Сообщение от 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;
|