try...except - Manuell in except springen

[Yheeky]

Hi,

ich habe einen try...except Block und würde gerne bei Misslingen einer bestimmten Abfrage in den Exception-Block springen. Wie kann ich das anstellen?
Sicher geht auch die Variante auch mit mehreren if-Abfragen, aber dieser Weg würde mich mal interessieren.

[Bernhard Geyer]

Wie wäre es den das du eine Exception raised.

Delphi-Quellcode:

raise MyException.Create('BlaBla');

[Deep-Sea]

Meinst du Abort?!

[Apollonius]

Entweder du wirfst selbst eine Exception (z.B. EAbort), oder du verweist im Except auf eine Subroutine, die du dann aufrufst. Ich würde letzteres bevorzugen, weil es nicht so unperformant wie eine Exception ist.

[Yheeky]

Mhmm, also ich weiss noch nicht so recht, wie ich das anstellen soll. Hier mal mit Codeausschnitt:

Delphi-Quellcode:

try
  if Form1.Label1.Caption <> 'Administrator' then
  // Exception werfen

  // Hier erfolgt die eigentliche Verarbeitung, weswegen ich zur try...except
  // gegriffen habe

except
  ShowMessage('Vorgang nicht erfolgreich');
end;

[Deep-Sea]

Wenn es nichts komplexeres gibt, kannst du doch auf den ganzen Try-except-Block verzichten, oder?

Delphi-Quellcode:

If Form1.Label1.Caption <> 'Administrator' then 
  raise Exception.Create('Fehler');

// Weiterer Code

Wenn die Exception auftritt, führt er den "weiterern Code" logischerweise nicht aus ...

[DeddyH]

Delphi-Quellcode:

procedure ShowError;
begin
  ShowMessage('Vorgang nicht erfolgreich');
end;

...
try
  if Form1.Label1.Caption <> 'Administrator' then
    begin
      ShowError;
      exit;  //oder alternativ in einem else-Zweig weitermachen
    end; 
except
  ShowError;
end;

[Apollonius]

Genau so meinte ich das, Detlef.

[DeddyH]

Ich auch, Exceptions in einem try-Block auszulösen ist eine Lösung, die sich für mich "nicht richtig anfühlt" :mrgreen:

[mkinzler]

Zitat:

Zitat von DeddyH

Ich auch, Exceptions in einem try-Block auszulösen ist eine Lösung, die sich für mich "nicht richtig anfühlt" :mrgreen:

Warum es gibt doch auch Menschen, die in die Säge langen, weil sie keinen Bock auf Arbeit haben :stupid: