Ver Mensaje Individual
  #1  
Antiguo 18-01-2012
LoPiTaL LoPiTaL is offline
Miembro
 
Registrado: abr 2009
Posts: 168
Reputación: 16
LoPiTaL Va por buen camino
Herencia de interfaces, TAggregatedObject e implementación con "implements" keyword

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
Responder Con Cita