Einzelnen Beitrag anzeigen

Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#20

Re: try...except - Manuell in except springen

  Alt 19. Aug 2008, 16:22
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 <> 'Administratorthen
    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).
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat