Hallo...
Delphi-Quellcode:
procedure Tform1.table2leeren;
begin
With table2 do begin
if active=true then close;
close;
Exclusive := TRUE;
Active := TRUE;
EmptyTable;
Active := False;
Exclusive :=False;
open;
end;
end;
es reicht...
Delphi-Quellcode:
procedure TForm1.tabelle2leeren;
begin
Table2.EmptyTable;
end;
Zitat:
"Datei im Gebrauch, Löschen nicht möglich".
...kommt vom Exclusive := TRUE;