Иллюстрированный самоучитель по Delphi 7 для начинающих

Многомерные массивы

Для ввода исходных данных и отображения результата используется компонент StringGrid, свойства которого приведены в табл. 5.9.

Таблица 5.9. Значения свойства компонента StringGrid1.

Ячейки первой зафиксированной строки таблицы используются в качестве заголовков колонок таблицы. Во время создания формы приложения нельзя установить значения элементов массива cells, т. к. элементы массива доступны только во время работы программы. Поэтому значения элементов массива Сells, соответствующих первой строке таблицы, устанавливает процедура обработки события OnActivate (ее текст приведен в листинге 5.11), которое происходит во время активизации формы приложения. Кроме того, эта процедура вписывает в первую колонку таблицы названия стран-участниц соревнований.

Листинг 5.11. Инициализация таблицы.

procedure TForml.FormActivate(Sender: TObject);
begin
tabl.Cells[0.0] ='Страна';
tabl.Cells[1.0] ='Золотых';
tabl.Cells[2.0] ='Серебряных';
tabl.Cells[3.0] ='Бронзовых';
tabl.Cells[4.0] ='Всего';
tabl.Cells[5.0] ='Баллов';
tabl.Cells[0.1] ='Австралия';
tabl.Cells[0.2] ='Белоруссия';
tabl.Cells[0.3] ='Великобритания';
tabl.Cells[0.4] ='Германия';
tabl.Cells[0.5] ='Италия';
tabl.Cells[0.6] ='Китай';
tabl.Cells[0.7] ='Корея';
tabl.Cells[0.8] ='Куба';
tabl.Cells[0.9] ='Нидерланды';
tabl.Cells[0.10]– 'Россия';
tabl.Cells[0,ll]: = 'США';
tabl,Cells[0.12]: = 'Франция';
tabl.Cells[0.13]: = 'Япония';
end;