如何在Delphi中纯粹通过RTTI信息(即不使用任何实际对象实例)获取TObjectList的子项类型？

TTestClass = class(TObject)
public
   test_list : TList<string>;
end;

TTestClassWithArr = class(TObject)
public
   test_arr : array of string;
end;

不幸的是,没有为通用参数生成RTTI.在像TList< T>这样的通用容器中发现T值的唯一方法.是获取目标字段本身的TRttiType,调用其ToString()方法将其类名称作为字符串,并解析括号之间的子字符串.例如：

uses
  ...,System.StrUtils,System.Rtti;

var
  Ctx: TRttiContext;
  s: string;
  OpenBracket,CloseBracket: Integer;
  ...
begin
  ...
  s := Ctx.GetType(TTestClass).GetField('test_list').FieldType.ToString; // returns 'TList<System.string>'
  OpenBracket := Pos('<',s);
  CloseBracket := PosEx('>',s,OpenBracket+1);
  s := copy(s,OpenBracket+1,CloseBracket-OpenBracket-1); // returns 'System.string'
  // if multiple Generic parameters are present,they will be separated by commas...
  ...
end;

将Generic参数解压缩为字符串后,如果需要访问该类型的RTTI,则可以使用TRttiContext.FindType().

话虽如此,下面的代码提供了一堆RTTI助手：

DSharp.Core.Reflection.pas(谷歌代码)

DSharp.Core.Reflection.pas(BitBucket)

除此之外,它定义了一个TRttiTypeHelper类助手,它将一个GetGenericArguments()方法添加到TRttiType：

TRttiTypeHelper = class helper for TRttiType
...
public 
  ...
  function GetGenericArguments: TArray<TRttiType>;
  ...
end;

在内部,GetGenericArguments()使用我在上面提到的相同技术.有了它,你可以这样做：

uses
  ...,System.Rtti,DSharp.Core.Reflection;

var
  Ctx: TRttiContext;
  arr: TArray<TRttiType>;
  typ: TRttiType;
  s: string;
  ...
begin
  ...
  arr := Ctx.GetType(TTestClass).GetField('test_list').FieldType.GetGenericArguments;
  typ := arr[0]; // returns RTTI for System.String
  s := typ.ToString; // returns 'System.string'
  ...
end;