Hm. Gut. Sollte klappen.
Machen wir mal etwas weiter. Folgender Code:
Delphi-Quellcode:
type
EInvalidPW =
class(
Exception);
const
PASSWORD = '
test';
procedure CheckPWD(Pwd:
String);
resourcestring
rsInvalidPw = '
Ungültiges Passwort';
begin
if Pwd <> PASSWORD
then
raise EInvalidPW.Create(rsInvalidPw);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
try
CheckPWD('
tset');
except
on E: EInvalidPW
do ShowMessage(E.
Message);
end;
end;
Einfaches Beispiel, aber man sieht deutlich eine Funktion die True oder False zurück gibt hätte es auch getan. Wo liegt konkret der Vorteil von Exceptions? Oder anders gefragt, wann ist das werfen von Exceptions sinnvoll?