Da du immer nur so Bruchstücke vom Code zeigst und man irgenwie nichts zusammenhängendes zu sehen bekommt, hier mal ein beispiel, wie man eine eigene
Exception wirtft und behandelt.
Delphi-Quellcode:
type
EInvalidPW =
class(
Exception);
const
PASSWORD = '
test';
procedure CheckPWD(Pwd:
String);
resourcestring
rsInvalidPw = '
Passwort %s ist ungültig';
begin
if Pwd <> PASSWORD
then
raise EInvalidPW.CreateFmt(rsInvalidPw, [Pwd]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
try
CheckPWD('
tset');
except
on E: EInvalidPW
do ShowMessage(E.
Message);
end;
end;