Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Как восстановить индексы?

Автор: Poseidon 18.5.2005, 14:52

Код

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