Zap physically removes all records from a dbf file.
var dbf :integer; begin dbf := OpenBase( 'filename.dbf' ); if dbf <> 0 then begin Zap(dbf); CloseBase(dbf); end; end.
