Pack physically deletes records from a dbf file marked as deleted.
var dbf :integer; begin dbf := OpenBase( 'filename.dbf' ); if dbf <> 0 then begin Pack(dbf); CloseBase(dbf); end; end.
