Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Разработка баз данных / Как мне упаковать Paradox или DBF таблицу?

Как мне упаковать Paradox или DBF таблицу?

Воспользоваться функцией PackTable из rxLib.

Для перегенерации индексов:

Table1.Exclusive := True;
Table1.Open;
Check(dbiRegenIndexes(Table1.Handle);

Комментарий от Леонид Федьков (iass@ndiasb.kiev.ua)
Можно и так (проверено  для DBF-файлов).

use BDE
...
procedure TFPack.FormClose(Sender: TObject; var Action: TCloseAction);
  var
  I_file : array[0..12] of Char;
begin
Table1.Exclusive := True;
Table1.Open;
    StrPCopy(I_file,'MY_FILE');
    Check(DbiPackTable(Table1.Dbhandle,
                 Table1.Handle,
                 I_file,
                 szDBASE,
                 FALSE));
Table1.Close;
end;

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru