Delphi-Quellcode:
type
IReadOnlyData = interface
['{7F08C18E-0E6A-40F1-9DD9-AFDDA473FB8B}']
function GetActualValue(const p_Component: Byte): double;
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);
property ActualValue[const p_Component: Byte]: double read GetActualValue write SetActualValue;
end;
In diesem Fall kann man durch Vererbung nur die Declaration der Getter sparen.
Wenn ein Object IData unterstützt, sollte auch immer IReadOnlyData mit angegeben werden.
Sonst wird IReadOnlyData bei der direkten Abfrage nicht gefunden.