Delphi中如何将RTTI返回的TValue转换为TObjectList

我刚好之前在Delphi项目里处理过类似的RTTI动态调用场景，给你几个实用的解决方案：

方案1：已知具体泛型类型时的精确转换 #

如果你的方法返回的是明确的泛型TObjectList（比如TObjectList<TMyDataClass>），直接用TValue.AsType<T>就能精准转换，这是最安全的方式：

uses
  System.Generics.Collections, System.Rtti;

var
  MethodResult: TValue;
  TargetList: TObjectList<TMyDataClass>;
begin
  // 假设MethodResult是通过RTTI调用方法得到的返回值
  if MethodResult.IsType<TObjectList<TMyDataClass>> then
  begin
    TargetList := MethodResult.AsType<TObjectList<TMyDataClass>>;
    // 现在可以正常操作TargetList，比如遍历元素、添加删除等
    for var Item in TargetList do
    begin
      // 直接使用Item的TMyDataClass方法/属性
      Item.DoSomething;
    end;
  end;
end;

方案2：未知泛型参数时的非泛型转换 #

如果不确定列表的具体泛型类型，或者只需要基础的对象列表操作（比如遍历、释放），可以利用泛型TObjectList<T>继承自非泛型TObjectList（在Contnrs单元）的特性，先转成TObject再强转：

uses
  Contnrs, System.Rtti;

var
  MethodResult: TValue;
  TargetList: TObjectList;
begin
  // 先确认TValue存储的是类对象类型
  if MethodResult.Kind = tkClass then
  begin
    TargetList := TObjectList(MethodResult.AsObject);
    // 遍历元素时需要手动转换类型
    for var I := 0 to TargetList.Count - 1 do
    begin
      var Item := TMyDataClass(TargetList.Items[I]);
      Item.DoSomething;
    end;
  end;
end;

为什么你之前的强制转换没成功？ #

大概率是这两个原因：

• 没先判断TValue.Kind是否为tkClass：如果方法返回的是接口（比如IList<T>）或者其他非对象类型，AsObject会返回nil，强制转换自然失败。
• 直接转成TObject后没再转成TObjectList：TObjectList是TObject的子类，你需要先通过AsObject拿到对象实例，再强转成TObjectList（或它的泛型版本），而不是直接把TValue强转成TObject就结束。

额外注意事项 #

• 确保RTTI调用的方法确实返回了TObjectList（或其子类）的实例，否则转换会触发类型转换错误。
• 如果需要动态处理泛型列表的元素，可以继续用RTTI遍历TValue中的列表元素，比如通过TValue.GetArrayElement方法逐个获取元素的TValue，再转换为具体对象。

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