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



Вопросы
  Сохраняем Bitmap в поле dbase
   Категория: Базы данных
  Создание кнопки на панели в IE
   Категория: Интернет и Сети
  К-во рабочих дней в месяце
   Категория: Математика
  Сохранить документ Word как RTF на DELPHI
   Категория: Файловая система
  Объект экрана — Screen
   Категория: Компоненты
  Подсчитать количество слов в строке
   Категория: Текст и строки
  Номер строки в memo под курсором
   Категория: Текст и строки
  Функции дат в SQL
   Категория: Базы данных
Delphi - База Знаний: Упаковать TinyDB

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

var
  R: Integer;
  Ok: Boolean;
begin
  R := Application.MessageBox(PChar(AppLangMgr.Trans('Pack the database?')), PChar(Application.Title), 36);
  if R = ID_NO then Exit;

  BeginProgress;
  Ok := TinyDatabase.Compact;
  EndProgress;
  if Ok then
    Application.MessageBox(PChar(AppLangMgr.Trans('Packing finished.')), PChar(Application.Title), 48)
  else
    Application.MessageBox(PChar(AppLangMgr.Trans('Fail to pack database.')), PChar(Application.Title), 16);
end;
  << Вернуться к Содержанию