Как восстановить индексы? |
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