|
Registriert seit: 24. Mai 2008
16 Beiträge
|
Re: Daten löschen
8. Jun 2008, 12:01
die Löschprozedur lautet:
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;
bei "EmptyTable" erfolgt der Programmausstieg.
|