枚举实现给定接口的所有 Delphi 类？

Question

通过 Delphi 2010 中新扩展的 RTTI，Delphi 应用程序（在运行时）能否构建实现给定接口的所有类的列表？

Answer 1

从技术上讲是可以的，只要接口有 GUID 并且您关心的类位于单元的接口部分中。

RTTI 单元（尚）没有用于描述类实现的所有接口的 API，但数据位于类型信息中。

接口类型的 GUID 可以从此表达式获取：

GetTypeData(TypeInfo(ITheInterface))^.Guid

或者：

ctx: TRttiContext;
// ...
(ctx.GetType(TypeInfo(ITheInterface)) as TRttiInterfaceType).GUID

然后可以使用 TClass.GetInterfaceEntry(IID) 检查实例类型的类 - 如果它返回非零，则该类实现界面。

可以通过 TRttiContext.GetTypes 检索在单元的接口部分中声明的所有类。

编写实际的迭代和提取代码作为读者的练习。