德尔福Rtti : Explore properties of interfaces?

Question

有没有办法用 Rtti 探索接口(interface)的属性？

以下代码不起作用:

procedure ExploreProps;
var
  Ctx: TRttiContext;
  RttiType: TRttiType;
  RttiProp: TRttiProp;
begin
  RttiType := Ctx.GetType(TypeInfo(IMyInterface));
  for RttiProp in RttiType.GetProperties do
    Writeln(RttiProp.ToString);
end;

有谁能找到正确的解决方案吗？

Answer 1

接口(interface)是函数的集合。它们并不像对象那样具有真正的属性；这只是编译器为您添加的一些语法糖，以便您可以更轻松地为它们编写代码。不同之处在于，在对象上，属性允许对私有(private)和 protected 成员进行受控访问，而在接口(interface)上，所有成员都是公共(public)的，因此不需要属性。