Delphi中能否传递未定义方法调用为参数？封装JSON处理函数疑问

你的方案是可行的，下面针对两个核心问题给出具体解决思路和代码实现：

一、解决方法传递的问题 #

Delphi中实例方法的底层结构是TMethod（包含Code方法地址和Data实例指针），可以直接用它来替代TUndefinedProc作为HandleCall的方法参数，这样能兼容不同签名的实例方法。

二、处理数量不确定的参数 #

借助Delphi的RTTI（运行时类型信息）机制，我们可以动态获取目标方法的参数类型、数量，再从JSON中提取对应值并转换为匹配的类型，最后完成方法调用。

完整实现代码 #

uses
  System.Rtti, System.JSON, System.TypInfo, SysUtils;

type
  THandler = class
  public
    procedure MethodA(A, B: String);
    procedure MethodB(A: String; B: Integer);
    procedure MethodC(A, B, C: Integer);
    procedure HandleCall(Data: TJSONObject; Handler: TMethod; Params: TArray<string>);
    procedure CallA(Data: TJSONObject);
    procedure CallB(Data: TJSONObject);
    procedure CallC(Data: TJSONObject);
  end;

procedure THandler.MethodA(A, B: String);
begin
  // 业务逻辑实现
end;

procedure THandler.MethodB(A: String; B: Integer);
begin
  // 业务逻辑实现
end;

procedure THandler.MethodC(A, B, C: Integer);
begin
  // 业务逻辑实现
end;

procedure THandler.HandleCall(Data: TJSONObject; Handler: TMethod; Params: TArray<string>);
var
  LContext: TRttiContext;
  LMethod: TRttiMethod;
  LParams: TArray<TRttiParameter>;
  LArgs: TArray<TValue>;
  I: Integer;
  LJSONValue: TJSONValue;
  LParamValue: TValue;
begin
  LContext := TRttiContext.Create;
  try
    // 通过方法地址获取RTTI信息
    LMethod := LContext.GetType(Self.ClassType).GetMethod(Handler.Code);
    if not Assigned(LMethod) then Exit;

    LParams := LMethod.GetParameters;
    // 校验参数数量是否匹配
    if Length(LParams) <> Length(Params) then Exit;

    SetLength(LArgs, Length(LParams));
    for I := 0 to High(LParams) do
    begin
      LJSONValue := Data.GetValue(Params[I]);
      if not Assigned(LJSONValue) then Exit;

      // 根据方法参数类型转换JSON值
      case LParams[I].ParamType.TypeKind of
        tkString, tkLString, tkWString, tkUString:
          LParamValue := TValue.From<string>(LJSONValue.Value);
        tkInteger:
          LParamValue := TValue.From<Integer>(StrToIntDef(LJSONValue.Value, 0));
        tkInt64:
          LParamValue := TValue.From<Int64>(StrToInt64Def(LJSONValue.Value, 0));
        tkDouble:
          LParamValue := TValue.From<Double>(StrToFloatDef(LJSONValue.Value, 0));
        tkBoolean:
          LParamValue := TValue.From<Boolean>(SameText(LJSONValue.Value, 'true'));
        // 可根据需求扩展更多类型支持
      end;
      LArgs[I] := LParamValue;
    end;

    // 动态调用目标方法
    LMethod.Invoke(Self, LArgs);
  finally
    LContext.Free;
  end;
end;

procedure THandler.CallA(Data: TJSONObject);
begin
  HandleCall(Data, TMethod(MethodA), ['param1', 'param2']);
end;

procedure THandler.CallB(Data: TJSONObject);
begin
  HandleCall(Data, TMethod(MethodB), ['paramA', 'paramB']);
end;

procedure THandler.CallC(Data: TJSONObject);
begin
  HandleCall(Data, TMethod(MethodC), ['x', 'y', 'z']);
end;

关键说明 #

1. 方法传递：通过TMethod(MethodA)将实例方法转换为通用的方法结构，兼容不同签名的方法。
2. 参数处理：利用RTTI获取方法的参数元数据，逐个从JSON中提取对应字段并转换类型，确保参数类型匹配后再调用方法。
3. 扩展性：可以根据业务需求扩展更多类型的转换逻辑，比如枚举、自定义对象等。

内容的提问来源于stack exchange，提问作者Wolfgang Bures