Konstanten im Interface

[Thom]

Eine Möglichkeit:

Delphi-Quellcode:

  TSomeBaseClass = class(...)
  private const
    Param_someProc_someParam = 12;
  end;

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

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