Объявляю кастомный атрибут
1.
TMyAttr = class(TCustomAttribute);
Описываю свойство этим атрибутом
1.
2.
3.
4.
5.
6.
7.
TMyClass = class
strict private
FID: Integer;
public
[TMyAttr]
property ID: Integer read FID write FID;
end;
пытаюсь его прочитать
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
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);
получаю
TMyClass
Props count: 1
Attrs count: 1Все работает.
Дальше, помечаю этим же атрибутом свойство generic-класса
1.
2.
3.
4.
5.
6.
7.
TMyClass2<T> = class
strict private
FID: Integer;
public
[TMyAttr]
property ID: Integer read FID write FID;
end;
читаю
1.
TestAttr(TMyClass2<TObject>.Create);
получаю 0 атрибутов
TMyClass2<System.TObject>
Props count: 1
Attrs count: 0
Вопрос, что я делаю не так и что нужно добавить, чтобы у generic-класса тоже читались атрибуты?
Delphi XE3
С уважением, Vasilisk
