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

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

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

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

Свойство Значение
Name Tab1
ColCount 6
RowCount 14
FixedCols 0
FixedRows 1
Options.goEditing TRUE
DefaultColWidth 65
DefaultRowHeight 14
GridLineWidth 1

Ячейки первой зафиксированной строки таблицы используются в качестве заголовков колонок таблицы. Во время создания формы приложения нельзя установить значения элементов массива 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;
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.