Enum da CustomAttribute erişimi hakkında

[kodamelesi]

Herkese merhaba, 

Arkadaşlar enum indexi üzerinden customAttribute e ulaşmak istiyorum fakat ne denediysem beceremedim. GetAttributes geriye değer döndürmüyor.

örnek olarak

type
 TEnumAttribute = class (TCustomAttribute)
  private
    FCaption : string;
  public
    constructor Create (const Caption : string);
    property Caption : string read FCaption write FCaption;
end;

 [TEnumAttribute('BİR')]
 [TEnumAttribute('İKİ')]
 [TEnumAttribute('ÜÇ')]
//[TEnumAttribute('bir'), TEnumAttribute('iki'), TEnumAttribute('üç')] -- bunu da denedim
 TMyEnums = (meBir, meIki, meUc);

 Sorunumu Array ile çözebiliyorum fakat RTTI kullanarak da yapmak istememe rağmen çözüme ulaşamadım. 
Herkese teşekkürler.

[uparlayan]

https://stackoverflow.com/questions/2134...umerations

[Abdullah ILGAZ]

@uparlayan bey'in paylaştığı linkte daha iyi bir örneklem bulunuyor. 


Yeni bir attribute tipi oluşturun

TEnumAttribute = class (TCustomAttribute)
 private 
   FCaption : string;
 public
   constructor Create (const Caption : string);
   property Caption : string read FCaption write FCaption;
end;

Daha sonra kendi enum değerlerinize bunu ekleyin

[TEnumAttribute ('BİR')]
[TEnumAttribute ('İKİ')]
[TEnumAttribute ('ÜÇ')]
TMyEnums = (meBir,meIki,meUc);

Şimdi de enum değerinin ordinal karşılığı ile attribute'e erişin

RttiType := RttiContext.FindType ('EnumUnit.TMyEnums');
RttiAttributes := Rttitype.GetAttributes;
Test := TEnumAttributes(RttiAttributes[index]).Caption;

[kodamelesi]

(24-04-2019, Saat: 15:54)Abdullah ILGAZ Adlı Kullanıcıdan Alıntı: @uparlayan bey'in paylaştığı linkte daha iyi bir örneklem bulunuyor. 


Yeni bir attribute tipi oluşturun

TEnumAttribute = class (TCustomAttribute)
 private 
   FCaption : string;
 public
   constructor Create (const Caption : string);
   property Caption : string read FCaption write FCaption;
end;

Daha sonra kendi enum değerlerinize bunu ekleyin

[TEnumAttribute ('BİR')]
[TEnumAttribute ('İKİ')]
[TEnumAttribute ('ÜÇ')]
TMyEnums = (meBir,meIki,meUc);

Şimdi de enum değerinin ordinal karşılığı ile attribute'e erişin

RttiType := RttiContext.FindType ('EnumUnit.TMyEnums');
RttiAttributes := Rttitype.GetAttributes;
Test := TEnumAttributes(RttiAttributes[index]).Caption;

Cevaplar için teşekkür ederim. Bunu daha önce denedim. 10.3 update 1 de Rttitype.GetAttributes satırında array boş dönüyor. Başka bir sürümde değer dönüyor mu bilmiyorum.