Readonly interface erzeugen (MMX?)

[freimatz]

Zitat von Uwe Raabe:

Was genau ist jetzt die Schwierigkeit mit der Erstellung dieser beiden Interfaces? (Mir ist einfach noch nicht klar, was genau dein Problem ist.)

Es ist KEIN Problem. Ich schrieb es ist "etwas mühsam". Das ist wenn man das öfters macht.
Hatte gedacht vielleicht gibt es da etwas schon. Scheint wohl nicht so zu sein.
Als Wunsch für MMX ist wohl auch zu aufwendig.
Danke für alle Rückmeldungen.

[himitsu]

Gibt es bei Interfaces auch die Möglichkeit Property zu erweitern, so wie bei Objeken?

Die Property sind ja eine Delphi-Sache ... das Windows-Interface hat ja offiziell nicht sowas.

Delphi-Quellcode:

type
  IReadOnlyData = interface
    ['{7F08C18E-0E6A-40F1-9DD9-AFDDA473FB8B}']
    function GetActualValue(const p_Component: Byte): double;
    function GetCurrentActual(): IActualValue;
    function GetDefaultBehaviourMode(): String;

    property DefaultBehaviourMode: String read GetDefaultBehaviourMode;
    property CurrentActual: IActualValue read GetCurrentActual;
    property ActualValue[const p_Component: Byte]: double read GetActualValue;
  end;

  IData = interface( IReadOnlyData )
    ['{E9154DD9-A28E-4703-9DD8-5181A27869E2}']
    procedure SetActualValue(const p_Component: Byte; const p_Value : double);
    procedure SetCurrentActual(const p_Value: IActualValue);
    procedure SetDefaultBehaviourMode(const p_Value: String);

    property DefaultBehaviourMode write SetDefaultBehaviourMode;
    property CurrentActual write SetCurrentActual;
    property ActualValue write SetActualValue;
  end;

[Rollo62]

Zitat von himitsu:

Gibt es bei Interfaces auch die Möglichkeit Property zu erweitern, so wie bei Objeken?

Würd ich nicht drauf wetten, besser mal austesten (oder in die Doku schauen, vermutlich ohne Erfolg ... )