Для упаковки таблицы dBASE, открытой с помощью TTable, воспользуйтесь
функцией BDE DbiPackTable. Для этого достаточно сделать две операции:
- Добавьте в секцию uses следующие модули:
{ Для Delphi 1.0: } DBITYPES, DBIPROCS и DBIERRS;
{ Для Delphi 2.0: } BDE;
- Затем вызовите BDE функцию DbiPackTable следующим образом:
Check(DbiPackTable(Table1.DbHandle, Table1.Handle, Nil, szDBASE, TRUE));
|
Примечания:
- Таблица должна быть открыта в эксклюзивном режиме.
- При вызове функций API BDE используйте процедуру Check. Check в случае
ошибки при вызове BDE генерирует исключительную ситуацию.
| 
