Показать сообщение отдельно
  #1  
Старый 31.05.2013, 18:51
Restart Restart вне форума
Прохожий
 
Регистрация: 17.05.2013
Сообщения: 8
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Вывод главной диагонали в StringGrid

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

Помогите пожалуйста.
Вложения
Тип файла: rar Diagonal.rar (188.7 Кбайт, 4 просмотров)
Ответить с цитированием