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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: OAmiry (Borland)

Упакуй, Господи, душу его…

Для упаковки таблицы dBASE убедитель в том, что таблица открыта в монопольном (exclusive) режиме и вызывайте DbiPackTable. Пример:

Table1.Close ;

Table1.Exclusive := TRUE ;

Table1.Open ;

DbiPackTable( Table1.DBHandle, Table1.Handle, nil, nil, TRUE ) ;

Убедитесь, что DBITYPES, DBIPROCS, DBIERRS включены в секцию USES вашего модуля и, в случае запуска из-под IDE, в режиме проектирования таблица не активна.

{/codecitation}

Добавить комментарий