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

Ниже приведен код обработчика кнопки 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.

OAmiry/Borland [000370]

Содержание раздела