Mega Code Archive

 

Categories / Delphi / ADO Database

 

Regenerate all out-of-date indexes on a given table

procedure TForm1.Button1Click(Sender: TObject); begin Table.Close; Table.Exclusive := True; Table.Open; DbiRegenIndexes(Table.Handle); Table.Close; end;