AddIndex

← →
ArtemB © (2003-05-19 12:11) [0]

Как в базе dbf найти существует ли такой индекс
если да, то удалить его (чтобы потом создать его)
если нет,то создать его

Вопрос возник по случаю:
необходимо создавать индексацию таблицы по полям, которые выбраль пользователь, НО для этого чтоб не городить много комбинации полей для индекса, видимо нужно работать с обним индексным файлом, в котором то создавать набор полей для индексаци, то удалять...
ИЛИ я ошибаюсь и есть решение лучше???

← →
гончий (2003-05-19 12:23) [1]

procedure CreateIndex(Tbl: TTable; IndexName: string);
var
IPos: Integer;
List: TstringList;
begin
List := TstringList.Create;
try
Tbl.GetIndexNames(List);
IPos := List.IndexOf(IndexName);
if( IPos > -1 )then
{ удаляем индекс }
else
{ создаем индекс };
finally
List.Free;
end;
end;

AddIndex Найти похожие ветки