Rtti in generischer Klasse

[x000x]

Ich denke ja:

Delphi-Quellcode:

type
   TTest = class(TObject)
   private
      FTest1: String;
   public
      property Test1: String read FTest1 write FTest1;
   end;

   TGenTest<T> = class(TList<T>)
   private
      procedure ShowProperties;
   end;

//...

uses RTTI;

procedure TGenTest<T>.ShowProperties;
var
   rtContext   : TRttiContext;
   rtType      : TRttiType;
   rtProperty  : TRttiProperty;
   strTmp      : String;
begin
   rtContext   := TRttiContext.Create;
   try
      rtType := rtContext.GetType(TypeInfo(T));
      Assert(Assigned(rtType), 'error');
      strTmp := '';
      for rtProperty in rtType.GetProperties do begin
         strTmp := strTmp + rtProperty.Name + '=' + rtProperty.PropertyType.ToString + #13#10;
      end;
      ShowMessage(strTmp);
   finally
      rtContext.Free;
   end;
end;