Readonly interface erzeugen (MMX?)

[freimatz]

@Uwe: So ähnlich wie bei Spring die IList und IReadOnlyList.

Delphi-Quellcode:

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

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

  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;

Nur als Beispiel. Was ich konkret jetzt habe ich ist eine Hierarchie mit 17 interfaces und 57 Properties. (Ergebnis des Versuches ein Berg von technischen Schulden zu erklimmen )

@himitsu: sehe jetzt nicht wie es damit weniger mühsam wird.