Пакование таблиц dBASE 3

Для упаковки таблицы dBASE, открытой с помощью TTable, воспользуйтесь функцией BDE DbiPackTable. Для этого достаточно сделать две операции:

1. Добавьте в секцию uses следующие модули:

   { Для Delphi 1.0: } DBITYPES, DBIPROCS и DBIERRS; { Для Delphi 2.0: } BDE;

    

2. Затем вызовите BDE функцию DbiPackTable следующим образом:

Check(DbiPackTable(Table1.DbHandle, Table1.Handle, Nil
, szDBASE, TRUE
)); 

Примечания:

• Таблица должна быть открыта в эксклюзивном режиме.
• При вызове функций API BDE используйте процедуру Check. Check в случае ошибки при вызове BDE генерирует исключительную ситуацию.

Другое по теме:

• DBASE - Индексы выражений
• DBFSeek и DBFLocate
• DBase и особые случаи BDE