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要求发布方法，示例代码中的方法也是如此。你的方法是私人的。因此MethodAddress失败并返回nil。

通过发布方法解决问题。

如果您希望使用非发布方法执行此类任务，则需要使用增强型RTTI。

按名称Delphi 10 Firemonkey调用方法

1 个答案: