Datensatz aus DBase endgültig löschen

[Gollum]

Hallo,

Delphi-Quellcode:

uses
  BDE, DB, DBTables, DBITypes;

function PackDBFTabelle(aTable:TTable):Bool;
var excl:Bool;
begin
  Result:=True;
  with aTable do
  begin
    excl:=Exclusive;
    try
      DisableControls;
      Close;
      if not excl then Exclusive:=True;
      try
        Open;
        Check(DBIPackTable(DbHandle, Handle, PChar(TableName), szDBASE, TRUE));
      except
        on E:EDBEngineError do
        begin
          ShowMessage(E.Message);
          Result:=False;
        end; // on
      end; // try
    finally
       Close;
      Exclusive:=excl;
      Open;
      EnableControls;
    end; // try
  end; // with aTable
end; // PackDBFTabelle