依据函数名字符串执行函数

这个问题虽然不是很严重，但却困扰本人许久。曾经多方询问朋友、查阅资料均无法达到效果。

今日偶然查到一些东西，经实测的却可行，也算了却了一桩心愿。

不再废话直接贴DEMO代码

unit Unit2;

interface

uses
  Vcl.Dialogs, Vcl.Forms, System.Generics.Collections, System.Variants;

type
  TMyIntf = class(TForm)
  public
    class function PublicFunc(FuncName : string; DicIn, DicOut: TDictionary<string, Variant>): Boolean;
  published
    function Red(DicIn, DicOut: TDictionary<string, Variant>): Boolean;
    function Black(DicIn, DicOut: TDictionary<string, Variant>): Boolean;
    function Blue(DicIn, DicOut: TDictionary<string, Variant>): Boolean;
    function Green(DicIn, DicOut: TDictionary<string, Variant>): Boolean;
  end;

implementation

{ TMyIntf }

function TMyIntf.Black(DicIn, DicOut: TDictionary<string, Variant>): Boolean;
begin
  DicOut.AddOrSetValue('Color', 'Black');
  Result := True;
end;

function TMyIntf.Blue(DicIn, DicOut: TDictionary<string, Variant>): Boolean;
begin
  DicOut.AddOrSetValue('Color', 'Blue');
  Result := True;
end;

function TMyIntf.Green(DicIn, DicOut: TDictionary<string, Variant>): Boolean;
begin
  DicOut.AddOrSetValue('Color', 'Green');
  Result := True;
end;

class function TMyIntf.PublicFunc(FuncName : string; DicIn,
  DicOut: TDictionary<string, Variant>): Boolean;
var
  Func : function(DicIn, DicOut: TDictionary<string, Variant>): Boolean of object;
begin
  Result := False;
  TMethod(Func).Code := TMyIntf.MethodAddress(FuncName);
  if Assigned(TMethod(Func).Code) then
    if Func(DicIn, DicOut) then
      Result := True;
end;

function TMyIntf.Red(DicIn, DicOut: TDictionary<string, Variant>): Boolean;
begin
  DicOut.AddOrSetValue('Color', 'Red');
  Result := True;
end;

end.

调用非常简单，引用单元然后直接调用类函数PublicFunc即可。

此篇如若有幸被大家浏览，若您有更好的方法请不吝赐教！拜谢！