Zitat von
Neotracer64:
Mach so:
Delphi-Quellcode:
try
DMPlaetzePflegen.ADOCommand1.CommandText :='sql_string';
DMPlaetzePflegen.ADOCommand1.Execute;
except
Failed := True;
end; // except end;
finally
If Failed Then FAILSQL Else PASSSQL;
end; //Finally End;
Kann man natürlich machen, wenn man mit Biegen und Brechen ein finally, das hier total Fehl am Platze ist, verwenden will. Ansonsten würde ich das vorziehen:
Delphi-Quellcode:
try
DMPlaetzePflegen.ADOCommand1.CommandText :='
sql_string';
DMPlaetzePflegen.ADOCommand1.Execute;
PASSSQL;
except
// Am Besten hier auch nur die richtigen Exception-Klassen abfangen
FAILSQL;
end;