try except und Finally Problem

[Khabarakh]

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;