como empaquetar las tablas Dbase

[mrmanuel]

Hola, tengo tablas en DBase, en la cual elimino registros e inserto, de forma normal, cunado borro registros, estos se borran logicamente pero no fisicamente.


como puedo empaquetar (creo que se llama así) dicha tabla para quitar fisicamente los registros borrados

[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