接口帮助程序或委派接口父级

将班级改为阅读:

TFooBar = Class(TInterfacedObject, IFoo, IFooBar)
private
  FFoo: IFoo;
public
  procedure Bar;
  property Foo: IFoo read FFoo implements IFoo ;
end;

您还需要一个构造函数或某种方法来创建ifoo的实例并将其放在ffoo中。

无法访问的方法 IFOO 通过引用 t挡杆 因为 t挡杆 不执行 IFOO -IT代表 IFOO . 但你不应该使用 t挡杆 无论如何,访问接口对象的引用,首先就是使用接口的全部要点!

注意:为了故意防止这种情况发生,我采用了一种约定,将类上的接口方法实现为“受保护的”,特别是拒绝访问那些实现细节,除了通过接口本身显示的那样。

你目前在哪里获得一个参考 t挡杆 ,将此更改为获取 伊福巴尔 接口实现者 t挡杆 你将被分类。

我不确定我是否理解你的所有顾虑,但我的建议是:

IFooBar = interface(IFoo)
  procedure Bar;
end;

TFooDelegate = class(TInterfacedObject, IFoo )
private
  FFoo: IFoo;
public
  property Foo: IFoo read FFoo implements IFoo;
end;

TFooBar = class( TFooDelegate, IFooBar )
  procedure Bar;
end;