Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 149 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

148
Рисунок 9.12 – Компонент StringGrid и его отображение
Пример инициализации таблицы StringGrid:
procedure TForm1.OnFormActivate(Sender: TObject);
begin
//Свойства таблицы приведены на рисунке 9.10
with StringGrid1 do
begin
Cells[0, 1]:= 'Строка 1';
Cells[0, 2]:= 'Строка 2';
Cells[1, 0]:= 'Столбец 1';
Cells[2, 0]:= 'Столбец 2';
Cells[3, 0]:= 'Столбец 3';
Cells[4, 0]:= 'Столбец 4';
Cells[1, 1]:= '1, 1';
Cells[2, 1]:= '1, 2';
Cells[3, 1]:= '1, 3';
Cells[4, 1]:= '1, 4';
Cells[1, 2]:= '2, 1';
Cells[2, 2]:= '2, 2';
Cells[3, 2]:= '2, 3';
Cells[4, 2]:= '2, 4';
end;
end; 
       Рисунок 9.12 – Компонент StringGrid и его отображение
Пример инициализации таблицы StringGrid:
procedure TForm1.OnFormActivate(Sender: TObject);
begin
 //Свойства таблицы приведены на рисунке 9.10
 with StringGrid1 do
 begin
   Cells[0, 1]:= 'Строка 1';
   Cells[0, 2]:= 'Строка 2';
   Cells[1, 0]:= 'Столбец 1';
   Cells[2, 0]:= 'Столбец 2';
   Cells[3, 0]:= 'Столбец 3';
   Cells[4, 0]:= 'Столбец 4';
   Cells[1, 1]:= '1, 1';
   Cells[2, 1]:= '1, 2';
   Cells[3, 1]:= '1, 3';
   Cells[4, 1]:= '1, 4';
   Cells[1, 2]:= '2, 1';
   Cells[2, 2]:= '2, 2';
   Cells[3, 2]:= '2, 3';
   Cells[4, 2]:= '2, 4';
 end;
end;

                               148

Страницы