Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Объект экрана — Screen
   Категория: Компоненты
  Преобразовать любой тип в строку
   Категория: Текст и строки
  Округление целого числа до 5
   Категория: Математика
  Шифрование текста по паролю
   Категория: Текст и строки
  Компоненты CoolBar и ControlBar
   Категория: Компоненты
  Как получить дату создания файла
   Категория: Файловая система
  Определение размера файла
   Категория: Файловая система

Delphi - База Знаний: Упаковать BD Accuracer

  << Вернуться к Содержанию  

 CurrentTable.Active := false;
CurrentDB.Connected := false;
CurrentDB.Exclusive := true;
try
  CurrentDB.CompactDatabase;
  Application.ProcessMessages;
except
  if (not FormProgressCancel.bCancel) then
   MessageDlg('Errors occurred while compacting database. Original file restored, use RepairDatabase to fix errors.',
              mtError,[mbOk],0)
  else
   MessageDlg('Compact operation aborted.',mtInformation,[mbOk],0)
end;
CurrentDB.Exclusive := false;
CurrentDB.Connected := true;
  << Вернуться к Содержанию