Aufrufende Prozedur verlassen

[Luckie]

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.