Interfaces Vererbung Verständnisproblem

[Leuselator]

Hallo Gemeinde, habe ein kleines Verständnisproblem mit folgender Konstellation:

Delphi-Quellcode:

IBaseInterface = Interface(IInterface)
  [GUID]
  procedure SetNum(Value:Integer); stdcall;
  function  GetNum : Integer;      stdcall;
  property Num : Integer read GetNum write SetNum;
end;

IAdvancedInterface = Interface(IBaseInterface)
  [GUID]
  procedure SetVal(Value:Integer); stdcall;
  function  GetVal : Integer;      stdcall;
  property Val : Integer read GetVal write SetVal;
end;

TBaseObject = Class(TInterfacedObject,IBaseInterface)
  private
    procedure SetNum(Value:Integer); stdcall;
    function  GetNum : Integer;      stdcall;
end; 

TAdvancedObject = Class(TBaseObject,IAdvancedInterface)
  private
    procedure SetVal(Value:Integer); stdcall;
    function  GetVal : Integer;      stdcall;
end;

Besitzt eine Objektinstanz vom Typ TAdvancedObject nun 2x das IBaseInterface (1x ererbt über TBaseObject und 1x über die Implementierung des IAdvancedInterface, welches von IBaseInterface abgeleitet ist) oder nur 1x (so wie ich es gern hätte) ?

Gruß

[Bernhard Geyer]

Zitat von Leuselator:

Besitzt eine Objektinstanz vom Typ TAdvancedObject nun 2x das IBaseInterface (1x ererbt über TBaseObject und 1x über die Implementierung des IAdvancedInterface, welches von IBaseInterface abgeleitet ist) oder nur 1x (so wie ich es gern hätte) ?

Nur einmal. Es ist ja nicht so wie bei C++ in der eine Mehrfachvererbung auf Implementierungsbasis geschieht und wo das Problem der mehrfachen Implementierungen auftreten kann.

[Leuselator]

Ah - Danke!