Home » Tutorials » Object Pascal/RTL » Exceptions

Exceptions

Exceptions selbst auslösen – Abort

Es gibt Programmsituationen, in denen ein Codeabschnitt unter bestimmten Bedingungen gar nicht ausgeführt werden soll. Statt die Methode umständlich über exit oder ähnliches zu verlassen, kann auch so getan werden, als sei eine Exception aufgetreten:

try
  ...
  if odd(zahl1) then abort; //odd gibt bei ungeraden Zahlen true zurück
  ...
  //hier kommt, was nur für gerade Zahlen ausgeführt wird
  ...
except
  //Hier werden Fehler abgefangen, und hier landet man
  //auch bei ungeraden Zahlen
end;

Abort löst also eine Exception aus. Die Programmausführung wird nach dem nächsten „except“ fortgesetzt. Der Anwender merkt davon nichts.
Generell gilt: Wenn eine Exception in einem Exception-Block „behandelt“ wird, gibt Delphi keine Fehlermeldungen aus.