Konstantenobjekt kann nicht als Var-Parameter weitergegeben

[Luckie]

... 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.

[Hawkeye219]

Hallo Michael,

Du erwartest im Array doch keine Rückgabewerte, deshalb sollte ein CONST reichen:

Delphi-Quellcode:

constructor CreateFmt(const msg: WideString; const Args: array of TVarRec);

Gruß Hawkeye

[Luckie]

Ächtz. Ich sollte heute wohl nicht programmieren. Danke. Das ist ja schon peinlich. :oops: