So könnte es zum Beispiel gehen:
Delphi-Quellcode:
resourcestring
rsEInvalidParameter = '
Der Parameter %s ist ungültig';
type
EInvalidParameter =
class(
Exception)
public
constructor CreateFmt(Parameter:
string);
end;
{ EInvalidParameter }
constructor EInvalidParameter.CreateFmt(Parameter:
string);
begin
inherited CreateFmt(rsEInvalidParameter, [Parameter]);
end;
procedure TForm1.RaiseDemoException;
begin
Raise EInvalidParameter.CreateFmt('
Foobar');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
try
RaiseDemoException;
except
on E: EInvalidParameter
do ShowMessage(E.
Message);
end;
end;
Ich habe eine eigene Exceptionklasse abgeleitet, weil ich keine passende, fertige
Exception gefunden habe.