如何测试未知的 Delphi RTTI TValue 是否反映任何类型的通用 TList<>（或至少 TEnumerable<>）的对象？

在德尔福，如果我有一个TValue反映未知对象的实例，如何测试该对象是否是任何类型泛型的实例TEnumerable<>（或者甚至更好，也which它是特定通用枚举类型的实例，例如TList<>)?

注意：我已经知道如何轻松检查其exact类型，即与.BaseType对应的属性TRttiType of the TValue，例如导致TList<string>，但我想测试的是它是否是TList<> of any子项类型.

为了举例说明这个假设代码“IsAnyKindOfGenericEnumerable()”的工作原理，下面是一些示例代码：

var
   LContext : TRttiContext;
   obj_1_rtti_value : TValue;
   obj_2_rtti_value : TValue;
   obj_3_rtti_value : TValue;
   obj_1_rtti_type : TRttiType;
   obj_2_rtti_type : TRttiType;
   obj_3_rtti_type : TRttiType;

LContext := TRttiContext.Create();

{
...
obj_1_rtti_value is set to a TValue reflection of a TList<string> object here
obj_2_rtti_value is set to a TValue reflection of a plain TObject object here
obj_3_rtti_value is set to a TValue reflection of a TQueue<integer> object here
...
}

obj_1_rtti_type := LContext.GetType(obj_1_rtti_value.TypeInfo);
obj_2_rtti_type := LContext.GetType(obj_2_rtti_value.TypeInfo);
obj_3_rtti_type := LContext.GetType(obj_3_rtti_value.TypeInfo);

IsAnyKindOfGenericEnumerable(obj_1_rtti_type); //Would return true
IsAnyKindOfGenericEnumerable(obj_2_rtti_type); //Would return false
IsAnyKindOfGenericEnumerable(obj_3_rtti_type); //Would return true

再说一次，最好的事情是如果我也能检测到which有点儿TEnumerable<>输入它，例如：

IsAnyKindOfGenericEnumerable(obj_1_rtti_type); //Will return true + `TList<>`
IsAnyKindOfGenericEnumerable(obj_2_rtti_type); //Will return false
IsAnyKindOfGenericEnumerable(obj_3_rtti_type); //Will return true + `TQueue<>`

我努力了：

if obj_1_rtti_type is TRttiEnumerationType then
begin
   //...
end;

但由于某种原因，这评估为false，我完全不知道这是为什么？表达方式value_type.BaseType.Name确实评估为'TEnumerable<System.string>'在这种情况下，但为了实现我的目标，除了手动解析该字符串之外，确实必须有其他方法，对吧？

最后，必须仅使用 RTTI 信息来实现目标，即不允许通过引用 TValue 背后的真实对象进行任何“作弊”（出于本问题范围之外的原因）。

没有为通用类型本身生成 RTTI（它们在运行时不存在），并且每个特定实例化（例如TList<string>) is a 具有自己独特 RTTI 的不同类类型。你必须检查每个单独的类型，无法测试任何通用类型。解析类名是检测泛型类型的唯一方法。

1. use TRttiType.Name获取字符串形式的类名 ('TList<System.string>').

2. 解析它以检测是否存在尖括号（'<>').

3. 提取括号之间的子字符串 ('System.string')

4. 沿着祖先树行走，寻找其祖先TRttiType.Name is 'TEnumerable<...>', where ...是提取的子字符串（'TEnumerable<System.string>').

但是，这种方法对于派生自的类类型失败TEnumerable<T>但本身没有泛型参数，例如：

type
  TMyClass = class(TEnumerable<string>)
  end;

为了解决这个问题，请忽略步骤 1-3 并直接直接跳到步骤 4，忽略括号之间出现的任何值，例如：

function IsAnyKindOfGenericEnumerable(AType: TRttiType): Boolean;
begin
  Result := False;
  while AType <> nil do
  begin
    Result := StartsText('TEnumerable<', AType.Name);
    if Result then Exit;
    AType := AType.BaseType;
  end;
end;

As for TRttiEnumerationType， 它代表枚举类型 (ie: type typeName = (val1, ...,valn);）。与以下无关TEnumerable<T>。这就是为什么is运算符始终为您返回 False - 您正在测试的 RTTI 类型都不代表枚举。