Рассмотрев общие свойства столбцов, строк и ячеек, перейдем к некоторым
методам коллекций Rows и Columns.
РИС. 7.6. Изменение стилей линий границ ячейки
Создавая таблицу, мы не можем быть уверенными в том, что нас устроит
количество строк и столбцов, определенное при ее создании. Для увеличе-
ния таблицы предназначен метод Add коллекции Rows и Columns, а для
удаления элементов этих коллекций — метод Delete. Первый метод добавля-
ет строку или столбец в конец таблицы, а второй удаляет строку или стол-
бец с указанным индексом.
Создадим новую форму и расположим в ней элементы управления. В про-
цедуру нажатия кнопки Button 1 добавим следующий программный текст.
Изменение количества строк и столбцов таблицы
var table:variant;
• • •
procedure TOKBottomDlg6.ListBoxlClick(Sender: TObject);
begin
table:=Forml.W.ActiveDocument.Tables.item(ListBoxl.itemindex+1);
end;
procedure T0KBottomDlg6.ButtonlClick(Sender: TObject);
begin
table.Columns.Add;
end;
procedure TOKBottomDlg6.Button2Click(Sender: TObject);
begin
table.Rows.Add;
end;
procedure TOKBottomDlg6.Button3Click(Sender: TObject);
begin
table.Columns.Item(l).Delete;
end;
procedure TOKBottomDlg6.Button4Click(Sender: TObject);
begin
table.Rows.Item(1).Delete;
end;
На рис. 7.7 представлена таблица до внесения изменений.
Рис. 7.7. Таблица до изменения количества строк и столбцов
На рис. 7.8 представлена таблица, в которую добавлено несколько столбцов
и строк. Поскольку строки и столбцы добавляются в конец таблицы, они
имеют такой же стиль, как и те, к которым они добавлены.
Для того чтобы добавить строку или столбец в произвольное место таблицы,
нужно вызывать метод Add с аргументом, которым является ссылка на
строку (столбец), перед которой требуется вставить новую строку (столбец).
Процедура, вставляющая новую строку между первой и второй строкой
с помощью метода Add, выглядит так:
Вставка новой строки между первой и второй строками таблицы
procedure TOKBottomDlg6.Button2Click(Sender: TObject);
var row:variant;
begin
row:=table.Rows.Item(2);
table.Rows.Add(row);
end;
Можно переработать эту процедуру для вставки столбца в заданное место
таблицы.
Рис. 7.8. Таблица после добавления строк и столбцов |
Главная
Каталог файлов
