Ich würde das viel einfacher machen:
Delphi-Quellcode:
type
IData = interface
['{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);
end;
Hier würde ich es als Nachteil empfinden, dass ich immer mit zwei Interfaces arbeiten muss, während ich im Original und bei dem inherited Ansatz immer mit einem auskomme: entweder IReadOnlyData für nur Lesen oder IData für Lesen und Schreiben.