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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

Автор: 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, в режиме проектирования таблица не активна.