Rtti 不适用于用作类字段的泛型类型

Question

我在使用 rtti 获取有关泛型类型的类字段的信息时遇到问题。经过一番谷歌搜索后，我在 QC 中找到了一个条目，描述了的问题。我的问题是，是否有人知道解决方法，或者是否已修复 Delphi XE2。以下是 QC 重现该错误的源代码片段。

program Generics;

    {$APPTYPE CONSOLE}

    uses
       Generics.Collections, Rtti, SysUtils;

    type
       TIntList = TList<Integer>;

       TRecContainer = record
         FList: TIntList;
       end;

       TObjContainer = class
         FList: TIntList;
       end;

    var
       ctx: TRttiContext;
       f: TRttiField;

    begin
       ctx := TRttiContext.Create;
       try
         for f in ctx.GetType(TypeInfo(TRecContainer)).GetFields do
           if f.FieldType <> nil then
             writeln(f.FieldType.Name)
           else
             writeln('f.FieldType = nil');
         for f in ctx.GetType(TypeInfo(TObjContainer)).GetFields do
           if f.FieldType <> nil then
             writeln(f.FieldType.Name)
           else
             writeln('f.FieldType = nil');
       finally
         ctx.Free;
         readln;
       end;
    end.

Answer 1

不幸的是，这个错误在 Delphi XE2 中仍然存在，作为解决方法，您可以像这样声明 TIntList 类型

TIntList = class(TList<Integer>);