Delphi

Вопрос

Как устроить Pack в dbf-ной табличке?

Ответ

Я делаю так:

Function Pack(Table:TTable):Integer;
var
  fActive:Boolean;
  fExclusive:Boolean;
begin
    fActive:=Table.Active; { сохранить среду }
    fExclusive:=Table.Exclusive;
    Table.Active:=False;
Table.Exclusive:=True;{ упаковка в монопольном режиме };
    Table.Active:=True;
Result:=DbiPackTable(Table.DBHandle,Table.Handle,NIL,'DBase',True);
    Table.Active:=False;
   Table.Exclusive:=fExclusive;{востановить среду}
    Table.Active:=fActive;
    If Table.Active then Table.Refresh;
end;

Люба