delphi - 如何从 TRttiMethod 获取/创建匿名方法？

Question

我想将TRttiMethod作为匿名方法处理。我怎样才能做到这一点？

以下是我希望事情如何运作的简化示例:

界面:

TMyClass = class
public
  // this method will be acquired via Rtti
  procedure Foo;

  // this method shall return above Foo as anonymous method
  function GetMethodAsAnonymous: TProc;
end;

实现:

function TMyClass.GetMethodAsAnonymous: TProc;
var
  Ctx: TRttiContext;
  RttiType: TRttiType;
  RttiMethod: TRttiMethod;
begin
  Ctx := TRttiContext.Create;
  try
    RttiType := Ctx.GetType(Self.ClassType);
    RttiMethod := RttiType.GetMethod('Foo');

    Result := ??????; // <-- I want to put RttiMethod here - but how?
  finally
    Ctx.Free;
  end;
end;

Answer 1

如果你真的想要一个匿名方法，那么就创建一个匿名方法:

Result := procedure
          begin
            RttiMethod.Invoke(Self, []);
          end;

您还可以构造一个简单的方法指针:

var
  Method: procedure of object;

TMethod(Method).Code := RttiMethod.CodeAddress;
TMethod(Method).Data := Self;
Result := Method;

最直接的方法当然是根本不使用RTTI:

Result := Foo;