delphi - 通过名称调用方法 Delphi 10 Firemonkey

Question

我正在尝试在 firemonkey 项目中按名称调用方法。但到目前为止还没有运气。

下面是我的代码:

type
  TExecute = procedure of object;
  TUpdates= class(TDataModule)
     procedure UpdateToVersion(Version: Integer);
  private
     procedure UpdateToVersion1;
     procedure UpdateToVersion2;
     procedure UpdateToVersion3;
     procedure Call(Name: string);
  public
  end;

procedure TUpdates.Call(Name: String);
var
  m:TMethod;
  Exe:TExecute;
begin
  m.Data := pointer(Self);
  m.Code := Self.MethodAddress(Name);
  Exe := TExecute(m);
  Exe;
end;

procedure TUpdates.UpdateToVersion(Version: Integer);
begin
   Call('UpdateToVersion'+version.ToString);
end;

procedure TUpdates.UpdateToVersion1;
begin
   //code
end;

procedure TUpdates.UpdateToVersion2;
begin
   //code
end;

procedure TUpdates.UpdateToVersion3;
begin
   //code
end;

结果: 例如，当我调用 UpdateToVersion(1) 时，我遇到访问冲突，并且过程 UpdateToVersion1 不会被调用。

我从以下链接的示例中获取了此代码: http://www.swissdelphicenter.ch/torry/showcode.php?id=799

Answer 1

MethodAddress 要求发布该方法，如示例代码中的方法。您的方法是私有(private)的。因此 MethodAddress 失败并返回 nil。

通过发布方法来解决问题。

如果您希望使用未发布的方法执行此类任务，那么您将需要使用增强型 RTTI。