Bronko
22-09-2006, 10:59
Добрый день!
Я только начинаю изучать Делфи! Прошу некоторой консультации!
Правильно ли я пишу код для заполнения столбцов таблицы:
procedure TPagesDlg.OnCreate(Sender: TObject);
begin
{заголовки таблицы первого листа}
StringGrid1.Cells[1,0]:='№';
StringGrid1.Cells[2,0]:='Урлы';
StringGrid1.Cells[3,0]:='Поле 1';
StringGrid1.Cells[4,0]:='Поле 2';
StringGrid1.Cells[5,0]:='Поле 3';
StringGrid1.Cells[6,0]:='Примечание';
end;
procedure TPagesDlg.OnCreate(Sender: TObject);
begin
{заголовки таблицы второго листа}
StringGrid2.Cells[1,0]:='№';
StringGrid2.Cells[2,0]:='Урлы';
StringGrid2.Cells[3,0]:='Поле 1';
StringGrid2.Cells[4,0]:='Поле 2';
StringGrid2.Cells[5,0]:='Поле 3';
StringGrid2.Cells[6,0]:='Примечание';
end;
и как потом написать код для заполнения этой таблицы!
Помогите, пожалуйста! Очень прошу!
Заранее всем спасибо за ответы!
Я только начинаю изучать Делфи! Прошу некоторой консультации!
Правильно ли я пишу код для заполнения столбцов таблицы:
procedure TPagesDlg.OnCreate(Sender: TObject);
begin
{заголовки таблицы первого листа}
StringGrid1.Cells[1,0]:='№';
StringGrid1.Cells[2,0]:='Урлы';
StringGrid1.Cells[3,0]:='Поле 1';
StringGrid1.Cells[4,0]:='Поле 2';
StringGrid1.Cells[5,0]:='Поле 3';
StringGrid1.Cells[6,0]:='Примечание';
end;
procedure TPagesDlg.OnCreate(Sender: TObject);
begin
{заголовки таблицы второго листа}
StringGrid2.Cells[1,0]:='№';
StringGrid2.Cells[2,0]:='Урлы';
StringGrid2.Cells[3,0]:='Поле 1';
StringGrid2.Cells[4,0]:='Поле 2';
StringGrid2.Cells[5,0]:='Поле 3';
StringGrid2.Cells[6,0]:='Примечание';
end;
и как потом написать код для заполнения этой таблицы!
Помогите, пожалуйста! Очень прошу!
Заранее всем спасибо за ответы!