AddIndex [D6, dBase, FoxPro]
ArtemB © (2003-05-19 12:11:00)
Как в базе dbf найти существует ли такой индекс
если да, то удалить его (чтобы потом создать его)
если нет,то создать его
Вопрос возник по случаю:
необходимо создавать индексацию таблицы по полям, которые
выбраль пользователь, НО для этого чтоб не городить много
комбинации полей для индекса, видимо нужно работать с обним
индексным файлом, в котором то создавать набор полей для индексаци,
то удалять...
ИЛИ я ошибаюсь и есть решение лучше???
гончий (2003-05-19 12:23:00) [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;
Наверх 
ЧАТ |
Орешник |
|
