Aufrufende Prozedur verlassen

[Luckie]

Zitat:

Zitat von fkerber

Bedeutend schöner fände ich es jetzt allerdings, wenn die Error-Prozedur auch dieses Exit gleich mit veranlassen könnte. Geht das irgendwie?

Einfach eine Exception werfen:

Delphi-Quellcode:

procedure DoSomething;
begin
  raise Exception.Create('Fehler');
  ShowMessage('dumdidum');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    DoSomething;
  except
    on E: Exception do ShowMessage(E.Message);
  end;
end;

Das ShowMessage aus DoSomething wird nicht mehr angezeigt, die Prozedur wurde also verlassen.

[Olli]

Zitat:

Zitat von Luckie

Einfach eine Exception werfen

~15min zu spät. Findest du es nicht irgendwie ignorant das oben zu übergehen um nochmal den gleichen Tip loszuwerden? :roll:

[Luckie]

Ich habe es nur noch mal an einem Codebeispiel demonstriert, was soll daran arrogant sein? :?

[Olli]

Zitat:

Zitat von Luckie

Ich habe es nur noch mal an einem Codebeispiel demonstriert, was soll daran arrogant sein? :?

:| Okay, vergiß es, die Antwort war genug um meine Aussage zu bestätigen. Das Nicht-Ignorieren anderer Leute kann sich durch Verständnisgewinn auszahlen ... :roll:

[Luckie]

Sorry, habe mich vertan, sollte nicht arrogant, sondern ignorant heißen. Ich wollte ihm eben nur mal ein kurzes Codebeispiel an die Hand geben.

[fkerber]

Hi!

Danke, ich werds mir anschauen!

zu den if-Schachtelungen:
Da es nicht nur eine Bedingung, sondern viele sind, gefällt mir diese Verschachtelei nicht.


Ciao Frederic