确定 TRttiMethod 何时被标记为重载、覆盖或抽象

Question

是否可以使用 Rtti 确定 TRttiMethod 是否标记为 overload、override 或 abstract ？

提前致谢。

Answer 1

重载：我认为没有 RTTI 标志，但您可以检查是否有多个同名方法。这并不完美，但它可能是您所能达到的最接近的结果。

覆盖：首先，确保该方法是虚拟的。 （或者动态或消息调度。）然后检查类的祖先是否有具有相同名称和 VirtualIndex 属性的其他方法。

摘要：在 rtti.pas 的 implementation 部分的深处，有一堆方法数据标志，是一个名为 mfAbstract 的部分，定义为 1 shl 7;< /代码>。没有代码引用它，但它是在编译器生成的 RTTI 中实现的。当您有该方法的 TRttiMethod 引用时，您可以像这样测试它：

IsVirtual := PVmtMethodExEntry(method.Handle).Flags and (1 shl 7) <> 0;

PVmtMethodExEntry 在 TypInfo 单元中声明，因此您需要使用它才能工作。

Answer 2

如果这仍然重要的话...
我这样检查：

1. function GetCloneProc: TRttiMethod;
2. var
3.   methods: TArray<TRttiMethod>;
4.   parameters: TArray<TRttiParameter>;
5. begin
6.   methods := BaseType.GetDeclaredMethods;
7.   for Result in methods do
8.   begin
9.     if (Result.MethodKind = mkProcedure) and (Result.Name = 'CloneTo') and
10.       (Result.DispatchKind = dkStatic) and not Result.IsClassMethod then
11.    begin
12.       parameters := Result.GetParameters;
13.       if (Length(parameters) = 1) and (parameters[0].Flags = [pfAddress]) and
14.         (parameters[0].ParamType.TypeKind = tkClass) and
15.         ((parameters[0].ParamType as TRttiInstanceType).MetaclassType = (BaseType as TRttiInstanceType).MetaclassType) then
16.         Exit;
17.     end;
18.   end;
19.   Result := nil;
20. end;

你应该注意第 10 行。虚拟或动态方法分别具有 DispatchKind dkVtable 和 dkDynamic。因此，如果方法标记为abstract，则它必须具有其中之一。同时，为了避免得到 class static 方法作为结果，我使用第二个条件：not TRttiMethod.IsClassMethod

另请参阅 System.Rtti：

TDispatchKind = (dkStatic, dkVtable, dkDynamic, dkMessage, dkInterface);

您可以自行处理此枚举。

关于“覆盖”：请参阅TStream.Seek，也许您会在那里找到对您有用的东西。

关于“过载”：上面@mason-wheeler 的答案对于这种情况看起来相当不错。