1

Topic: RTTI attributes at Generic a class

I declare  attribute

TMyAttr = class (TCustomAttribute);

I describe property this attribute

TMyClass = class
strict private
FID: Integer;
public
[TMyAttr]
property ID: Integer read FID write FID;
end;

I try to read it

procedure TestAttr (AObj: TObject);
var
LCtx: TRttiContext;
LType: TRttiType;
LProps: TArray <TRttiProperty>;
LAttrs: TArray <TCustomAttribute>;
begin
LCtx: = TRttiContext. Create;
try
Writeln (AObj. ClassName);
LType: = LCtx. GetType (AObj. ClassInfo);
LProps: = LType. GetProperties;
Writeln (' Props count: ', Length (LProps));
LAttrs: = LProps [0].GetAttributes;
Writeln (' Attrs count: ', Length (LAttrs));
finally
LCtx. Free;
end;
end;
TestAttr (TMyClass. Create);

I receive
[quote =] TMyClass
Props count: 1
Attrs count: 1

All works.
Further, I mark with the same attribute property of a generic-class

TMyClass2 <T> = class
strict private
FID: Integer;
public
[TMyAttr]
property ID: Integer read FID write FID;
end;

I read

TestAttr (TMyClass2 <TObject>.Create);

I receive 0 attributes
[quote =] TMyClass2 <System. TObject>
Props count: 1
Attrs count: 0

Question, what I do not and what it is necessary to add, that at a generic-class attributes too were read?
Delphi XE3
Yours faithfully, Vasilisk