Создание индекса во время выполнения программы

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: OAmiry (Borland)

Ниже приведен код обработчика кнопки OnClick, с помощью которого строится индекс:

procedure TForm1.Button1Click(Sender: TObject);

var

bActive, bExclusive: Boolean;

begin

bActive := Table1.Active;

bExclusive := Table1.Exclusive;

Table1.IndexDefs.Update;

with Table1 do

begin

Close;

{таблица dBASE должна быть открыта в монопольном (exclusive) режиме}

Exclusive := TRUE;

Open;

if Table1.IndexDefs.IndexOf(‘FNAME’) 0 then

Table1.AddIndex(‘FNAME’, ‘FNAME’, []);

Close;

Exclusive := bExclusive;

Active := bActive;

end;

end;

Если вы собираетесь запускать проект из Delphi, пожалуйста убедитесь в том, что свойство таблицы Active в режиме проектирования установлено в False.

{/codecitation}

Добавить комментарий