|
Hola:
Este código está tomado de "La Cara oculta de Delphi 4", pg 583, autor Ian Marteens:
procedure PackDBF (const ADatabase, ATable:String);
begin
With TTable.Create(nil) do
TRY
DatabaseName := ADatabase;
TableName := ATable;
Exclusive := True;
Open;
Check (DbiPackTable(Database.Handle, Handle,'','',TRUE));
FINALLY
Free;
END;
end;
la función DbiPackTable necesita que tengas declarada la unit dbiProcs
Saludos
|