Hola a todos!
Tengo una duda con la implementación de interfaces mediante la keyword "implements". Os comento: tengo las siguientes interfaces:
Código Delphi
[-]
IIntPadre = interface
['{14CB7AD1-9CC7-4805-A6FC-9DC8FC218F6A}']
procedure dummie;
end;
IIntHija = interface (IIntPadre)
['{7D740013-C5E5-42C6-AFF0-9203A11BDDE9}']
procedure dummie2;
end;
Y tengo una clase que implementa sólo IIntPadre:
Código Delphi
[-]
TIntPadre=class (TAggregatedObject, IIntPadre)
public
procedure dummie;
end;
Ahora quiero tener una clase que implemente las dos, y para ello hago lo siguiente:
Código Delphi
[-]
TIntHija=class (TInterfacedObject, IIntPadre, IIntHija)
private
FPadre: TIntPadre;
function getPadre: IIntPadre;
public
property Padre: IIntPadre read getPadre implements IIntPadre;
procedure dummie2;
end;
De esta forma, los métodos de IIntPadre son comunes para todas las clases, ya que están implementados todos en TIntPadre. Sin embargo, al intentar implementar la interfaz con "implements", me da el siguiente error:
Cita:
[DCC Error] XXX.pas(12): E2291 Missing implementation of interface method IIntPadre.dummie
|
Si la interfaz IIntHija NO deriva de IIntPadre, no da ningún error y todo funciona perfecto.
Sin embargo, cuando hago que derive de IIntPadre, entonces me da este error.
¿Cómo puedo solucionarlo sin tener que declarar todos los métodos de IIntPadre e implementándolos a mano?
Un saludo,
LoPiTaL