![](images/delphi/004.gif)
Когда таблица создана, можно заполнять ее текстом. Записывать информа-
цию непосредственно в ячейку таблицы позволяет объект Cell, который и
представляет собой ячейку. Ссылку на конкретную ячейку получают, обра-
щаясь к объекту Cell с параметрами (номер строки и столбца). Напри-
мер, если выполнить оператор mycell:=table.Cell(l, 2);, то переменная
mycelkvariant будет содержать ссылку на ячейку в первой строке и во втором
столбце таблицы. В состав объекта "ячейка" входит объект Range. Нам из-
вестно, что Range может содержать текст. Используя свойства ячейки и объ-
екта Range, запишем текст в конкретную ячейку и зададим для него шрифт
и расположение.
Запись текста в ячейку таблицы
// Компоненты Rowld и Columnld позволяют пользователю выбрать ячейку,
// a Range__Text - ввести в нее текст.
procedure TOKBottomDlg7.Range_TextChange(Sender: TObject);
begin
table.Cell(Rowld.value, Columnld.value).Range.Text:=Range_Text.text;
end;
// Выравниваем текст в ячейке по вертикали, используя свойство
// VerticalAlignment, которое может принимать значения — 0, 1, 2.
procedure T0KBottomDlg7.VerticalAlignmentChange(Sender: TObject);
begin
table.Cell(Rowld.value, Columnld.value).VerticalAlignment:=
VerticalAlignment.itemindex;
end;
// Горизонтальное выравнивание осуществляется с помощью
// свойства Alignment объекта ParagraphFormat, принадлежащего
// объекту Range.
procedure TOKBottomDlg7.AlignmentChange(Sender: TObject);
begin
table.Cell(Rowld.value, Columnld.value).Range.ParagraphFormat.Alignment:=
Alignment.itemindex;
end;
|