try...except - Manuell in except springen

[sirius]

Yheeky wollte einfach wissen, wie man eine Exception wirft. Und nicht, ob und warum eine Exception langsamer ist als andere Möglichkeiten. Er hat ein Beispiel dafür aufgeschrieben und man könnte ihm jetzt mal die Lösung zeigen. Denn wir ihr wisst, ist es nicht immer möglich nur mit Ifs zu arbeiten.

Delphi-Quellcode:

try 
  if Form1.Label1.Caption <> 'Administrator' then 
    raise Exception.Create('Du bist kein Administrator');
    //du kannst/solltest dir auch eine eigene Exceptionklasse von Exception ableiten


except 
  on E:Exception do
    ShowMessage(e.message);
end;

Hier wäre jetzt noch ein Hinweis angebracht, dass das Auslösen einer Exception eine Weile dauert (aber auch nicht ewig lange).