Konstanten im Interface

[Thom]

Du hattest doch selbst die Idee, die Konstante in der (implementierenden) Klasse unterzubringen. Willst Du das nicht, dann definier doch einfach eine globale Konstante:

Delphi-Quellcode:

const
  Param_someProc_someParam = 12;

type
  ISomeInterface = interface
    procedure someProc(const someParam: Integer = Param_someProc_someParam);
  end;

  TSomeClass = class(...,ISomeInterface)
  public
    procedure someProc(const someParam: Integer = Param_someProc_someParam);
  end;

Zitat von Der schöne Günther:

Die implementierende Klasse kann einen Standardwert vorgeben, selbst wenn das Interface kein vorgibt!

Falls das eine Frage war: Ja.

Delphi-Quellcode:

type
  ISomeInterface = interface
    procedure someProc(const someParam: Integer);
  end;

  TSomeClass = class(...,ISomeInterface)
  private type
    Param_someProc_someParam = 12;
  public
    procedure someProc(const someParam: Integer = Param_someProc_someParam);
  end;