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.