|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вывод главной диагонали в 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... ) в какую-нибудь переменную.. и вывести. Помогите пожалуйста. Последний раз редактировалось Restart, 31.05.2013 в 18:54. |
#2
|
||||
|
||||
Цитата:
Код:
for i := 1 To 4 do begin StringGrid2.Cells[0, i] := StringGrid1.Cells[i, i]; end; |