como empaquetar las tablas Dbase

[andres1569]

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