Советы по Delphi

       

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


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

procedure TForm1.Button1Click(Sender: TObject);
var
bActive, bExclusive: Boolean ;begin
bActive := Table1.Active ;bExclusive := Table1.Exclusive ;Table1.IndexDefs.Update ;with Table1 dobeginClose ;{таблица dBASE должна быть открыта в монопольном (exclusive) режиме}Exclusive := TRUE ;Open ;if Table1.IndexDefs.IndexOf('FNAME') <> 0 thenTable1.AddIndex('FNAME', 'FNAME', [] ) ;Close ;Exclusive := bExclusive ;Active := bActive ;end ;end;

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

OAmiry/Borland [000370]



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