Delphi中使用SuperObject RTTI时如何将TClass转换为泛型实参T？

Delphi 的泛型参数属于编译期静态绑定的语法特性，要求传入的类型占位符必须在代码编译阶段就确定为具体类型。你试图在运行时从字典中取出TClass类型的类引用，直接作为泛型方法Json2Record<T>的类型参数，完全不符合泛型的编译期绑定规则，编译器无法识别出合法的方法重载，因此抛出E2250报错。

可行解决方法 #

方法1：基于SuperObject原生RTTI接口实现动态转换 #

你原来封装的泛型Json2Record本质是对TSuperRttiContext能力的语法糖封装，该组件本身提供了支持运行时动态类型的非泛型转换入口，完全可以绕开泛型的编译期绑定要求实现转换。
具体改造步骤：

• 重构原有方法，新增支持传入TRttiType的非泛型重载：

class function RecordJson.Json2Record(const obj: ISuperObject; AType: TRttiType): TValue;
var
  ctx: TSuperRttiContext;
begin
  ctx := TSuperRttiContext.Create;
  try
    // 直接调用组件原生的非泛型转换逻辑
    Result := ctx.AsObject(AType, obj);
  finally
    ctx.Free;
  end;
end;

• 调整原有遍历字典的逻辑，无需修改你已有的FClassDic字典结构（仍存储类名字符串和对应TClass的映射），直接在循环中通过RTTI拿到目标类型信息，调用非泛型转换方法：

var
  GlobalRttiCtx: TRttiContext;
  TargetRttiType: TRttiType;
begin
  GlobalRttiCtx := TRttiContext.Create;
  try
    for Key in FClassDic.Keys do
    begin
      if aSo.O[Key] = nil then
        Continue;
      // 根据字典中存的类引用，拿到对应类型的RTTI元数据
      TargetRttiType := GlobalRttiCtx.GetType(FClassDic.Items[Key].ClassInfo);
      // 执行动态类型转换
      var ConvertResult := RecordJson.Json2Record(aSo.O[Key], TargetRttiType);
      // 根据返回值的实际类型，从TValue中取出对应值即可
      Result := ConvertResult;
    end;
  finally
    GlobalRttiCtx.Free;
  end;
end;

方法2：字典绑定转换委托，保留原有泛型逻辑 #

如果不想修改原有泛型方法的实现，可以把字典的存储值从类引用改成绑定了具体转换逻辑的匿名委托，从根源上避开“运行时取类型作为泛型参数”的问题。
具体操作：

• 先定义对应签名的委托类型，把原来的字典结构从存TClass改成存委托：

type
  // 定义和泛型转换方法签名匹配的委托
  TJsonConvertFunc = reference to function(const AObj: ISuperObject): TValue;

// 替换原字典定义
FConvertDic: TDictionary<string, TJsonConvertFunc>;

• 初始化字典时，直接给每个类型的key绑定对应编译期确定的转换逻辑：

// 初始化字典，每个key对应的泛型参数都是编译期明确的具体类型，不会触发编译错误
FConvertDic.Add('TDistanceValTopConv',
  function(const AObj: ISuperObject): TValue
  begin
    Result := RecordJson.Json2Record<TDistanceValTopConv>(AObj);
  end);

FConvertDic.Add('TDistanceBhTopConv',
  function(const AObj: ISuperObject): TValue
  begin
    Result := RecordJson.Json2Record<TDistanceBhTopConv>(AObj);
  end);

FConvertDic.Add('TLbXsConv',
  function(const AObj: ISuperObject): TValue
  begin
    Result := RecordJson.Json2Record<TLbXsConv>(AObj);
  end);

FConvertDic.Add('TConcreteConv',
  function(const AObj: ISuperObject): TValue
  begin
    Result := RecordJson.Json2Record<TConcreteConv>(AObj);
  end);

• 遍历字典时直接调用对应委托完成转换，不需要动态计算泛型参数：

for Key in FConvertDic.Keys do
begin
  if aSo.O[Key] = nil then
    Continue;
  // 直接取出绑定好的转换方法执行
  var ConvertHandler := FConvertDic.Items[Key];
  Result := ConvertHandler(aSo.O[Key]);
end;

注意：原有循环逻辑中，如果匹配到多个JSON节点，后续的转换结果会直接覆盖前面的结果，实际业务中需要根据场景增加判断逻辑，避免非预期的覆盖问题。

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