Основы языка Delphi



    8b693973     

Листинг 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] ='Bcero';

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;

Программа обработки исходной таблицы (листинг 5.12) запускается щелчком мыши на командной кнопке Итоги (Buttoni).









Содержание  Назад  Вперед