Упаковка *.dbf

← →
ККВ © (2003-03-03 12:51) [0]

Товарищи, никто не подскажет как упаковать dbf-ник средствами Delphi, не используя сторонних компонент. Заранее спасибо.

← →
Pat © (2003-03-03 12:55) [1]

dbiPackTable()

← →
ККВ © (2003-03-03 13:01) [2]

Пробовал, но что то не хочет работать, или я что то не так делаю

← →
Соловьев © (2003-03-03 13:02) [3]

procedure PackDBaseTable(Table:TTable);
var OldState : boolean ;
begin
with Table do
begin
OldState := Active; Close;
Exclusive := True; Open;

DbiPackTable(DBHandle, Handle, nil, nil, True);

Close; Exclusive := False;
Active := OldState;
end;
end;

← →
ККВ © (2003-03-03 13:06) [4]

А DbiPackTable из какого модуля? Что-то в Helpe не нашел.

← →
Соловьев © (2003-03-03 13:08) [5]

DBIProc

← →
ККВ © (2003-03-03 13:20) [6]

похоже в 7 делфи такого модуля нет...

Uses BDE !

все равно ругается

Спасибо большое, все, разобрался.

Упаковка *.dbf Найти похожие ветки