Как восстановить индексы?

Previous  Top  Next

    
 

 

 

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

Table.Close;

Table.Exclusive := True;

Table.Open;

DbiRegenIndexes(Table.Handle);

Table.Close;

end;

 

©Drkb::02630

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php