... werden.
Die pobige Fehlermeldung bekomme ich bei folgendem Code:
Delphi-Quellcode:
type
Exception =
class
protected
FMsg: WideString;
FCode: DWord;
public
constructor Create(
const msg: WideString);
overload;
constructor Create(
const msg: WideString; Errorcode: DWord);
overload;
constructor CreateFmt(
const msg: WideString;
var Args:
array of TVarRec);
property Message: WideString
read FMsg;
property Errorcode: DWord
read FCode;
end;
constructor Exception.CreateFmt(
const Msg: Widestring;
var Args:
array of TVarRec);
var
s: WideString;
s1: WideString;
begin
s1 := Msg;
s := FormatW(s1, Args);
self.Create(s);
end;
Delphi-Quellcode:
procedure TExport.SetFilename(Filename: WideString);
begin
if FileExists(Filename)
then
FFilename := Filename
else
begin
raise Exception.CreateFmt(rsFileNotFound, [Filename]);
end;
end;
Wo ist denn da ein Konstantenobjekt?
rsFilenotFound ist ein Ressourcenstring. Der Cursor steht bei der Fehlermeldung hinter der Zeile mit
raise.