？？？？高手：delphi6中如何实现接口的包容与聚合？？？？

Question

哦，原来是这个问题呀，不好意思回答不了啦~~~

Answer 1

请大家帮忙啊！我对这个问题考虑了几天，希望高手给我帮助，多多加分！

Answer 2

Hint: Use implementation property to easily aggragate inner object into outer object. Example:TCoExample = class(TComObject,IOuterInterface)
private
  F_Aggreagted: IInnerInterface;
public
  property _Aggregated: IInnerInterface 
    read F_Aggregated write F_Aggregated
    implements IInnerInterface;
end;var
  outerInterface: IOuterInterface;begin
  outerInterface := TCoExample.Create as IOuterInterface;
  outerInterface.somemethod...;
  (outerInterface as IInnerInterface).somemethod...;
end.Understand? HTH

Answer 3

能不能说的详细一点？非常感谢！