Как добавить индексное поле?

← →
Gost (2005-02-14 18:08) [0]

Как добавить индексное поле "AZZ", если таблица создается таким методом:
with FieldDefs do
begin
Clear;
with AddFieldDef do
begin
Name := "AZZ";
DataType := ftString;
Size := 16;
end;
with AddFieldDef do
begin
Name := "BZZ";
DataType := ftString;
Size := 4;
end;
end;
CreateTable;

← →
DSKalugin © (2005-02-14 18:16) [1]

после того как таблица зоздана методомм
CreateTable;
сделай TTable.AddIndex()

← →
Gost (2005-02-14 18:22) [2]

Т.е.

.......
with AddFieldDef do
begin
Name := "BZZ";
DataType := ftString;
Size := 4;
end;
end;
CreateTable;
Table1.AddIndex("AZZ");
?

← →
Anatoly Podgoretsky © (2005-02-14 20:11) [3]

Где ты такой синтаксис обнаружил, совсем не соответствует справке.

см хэлп F1 TTable.AddIndex()
там еще надо заполнить другие параметры
procedure AddIndex(const Name, Fields: String; Options: TIndexOptions, const DescFields: String=""); type TIndexOption = (ixPrimary, ixUnique, ixDescending, ixCaseInsensitive, ixExpression, ixNonMaintained); TIndexOptions = set of TIndexOption; пример Table1.AddIndex("NewIndex", "CustNo;CustName", [ixUnique, ixCaseInsensitive]);

ЗЫ индекс будет обновляемым только при наличии первичного индекса в таблице парадокс

Как добавить индексное поле? Найти похожие ветки