Aufrufende Prozedur verlassen

[fkerber]

Hi!

Ich hätte da mal eine Frage (wer hätt's gedacht)...


Ich habe mir eine Prozedur "Error" geschrieben:

Delphi-Quellcode:

procedure Error(msg: String);
begin
  MessageDlg(msg,mterror,[mbOk],0);
end;

Die wird immer dann aufgerufen, wenn ein schwerwiegender Fehler aufgetreten ist, sodass die Prozedur verlassen werden soll, in der der Fehler auftrat.

Momentan sieht das dann bspw. so aus:

Delphi-Quellcode:

 if not IsSthSelected(Listbox1) then
  begin
    Error('Sie müssen das Bild mindestens einem Gebäude zuordnen');
    exit;
  end;

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


Ciao Frederic