Создание индекса

Previous  Top  Next

    
 

 

 

Автор: OAmiry (Borland)

 

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

 

Code:

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.

 

©Drkb::02625

       

Взято с http://delphiworld.narod.ru