Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#11

AW: Readonly interface erzeugen (MMX?)

  Alt 5. Jan 2022, 17:08
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;
$2B or not $2B
  Mit Zitat antworten Zitat