... werden.

Die pobige Fehlermeldung bekomme ich bei folgendem Code:

zusammenfalten · markieren

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;

markieren

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.

Hallo Michael,

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

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

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