Delphi для профессионалов
Использование описаний индексов
Описания индексов наряду с описаниями полей (см. г/г. 13) также используются при создании новых таблиц БД. Для каждого планируемого индекса перед вызовом метода CreateTable необходимо создать или скопировать из существующего набора данных соответствующее описание. Тогда при создании таблицы индексы будут добавлены автоматически:
with Tablel do
begin
DatabaseName := 'DBDEMOS';
TableType := ttParadox;
TableName := 'DemoTable';
...
{Создание описаний полей}
...
with IndexDefs do begin Clear;
AddlndexDef; with Items[0] do
begin
Name := ' ' ; Fields := 'Fieldl'; Options := [ixPrimary, ixUnique];
end;
AddlndexDef; with Items[1] do
begin
Name := 'Secondlndex'; Fields := 'Fieldl;Field2';
Options := [ixCaselnsensitive];
end;
end;
CreateTable;
end;
При создании описаний индексов использован метод AddlndexDef, который при каждом вызове добавляет к списку Items объекта TIndexDefs новый объект TindexDef. Таким образом сначала создается первичный индекс (в таблицах Paradox он не имеет имени), затем вторичный индекс SecondIndex. Для каждого описания обязательно определяются составляющие индекс поля и параметры индекса (свойства Fields и options).
