代码之家 › 专栏 › 技术社区 › KevinRF

Delphi2010 RTTI:如何插入/浏览包含自定义属性的枚举

rtti delphi-2010 delphi

KevinRF · 技术社区 · 14 年前

我使用TCustomAttribute子类(TEnumAttribute)创建了一个枚举,为每个枚举提供额外的数据(如果成功,它将驱动一个自定义组件,该组件可以查询枚举并相应地填充自己)。


type
  TShoppingCartType = (

    [TEnumAttribute(0, 'All')]
    sctAll,

    [TEnumAttribute(1, 'Web Shopping Cart')]
    sctWebShoppingCart,

    [TEnumAttribute(2, 'Wish List')]
    sctDefaultWebWishList,

    [TEnumAttribute(3, 'Custom')]
    sctWebCustomList

    );

我可以很好地获取名称和值(使用相应的TypeInfo GetEnum方法),但是如何访问枚举中的每个值并访问它的定义属性?

谢谢你的消息

1 回复 | 直到 14 年前

Bruce McGee 14 年前

据我所见你只能注释具有属性。由于枚举的值只是一个简单的序数值,因此您的方法可能不起作用。

如果枚举值本身是类型,则可以使用 TRttiContext 和 TRttiType 如官方文件所述:

http://docwiki.embarcadero.com/RADStudio/XE/en/Extracting_Attributes_at_Run_Time

用经典的方式来做似乎更合适:

TShoppingCartTypeDescriptions = array[TShoppingCartType] of string;

...

Descriptions: TShoppingCartTypeDescriptions;
Descriptions[sctAll] := 'All';
Descriptions[sctWebShippingCart] := 'Web Shopping Cart';
// and so on

var 
  I: TShoppingCartType;
begin

  for I := Low(TShoppingCartType) to High(TShoppingCartType) do
      // Do something with I

end;

推荐文章

user0042 · Delphi是否为简单的常见操作提供编译器生成的代码?

7 年前

Christino · Delphi 2010和泛型

7 年前

zac · 对象检查器网格高度是否有固定值?Delphi 2010[副本]

8 年前

john_who_is_doe · 求值器中的表达式非法(访问冲突)(&A)

9 年前

dummzeuch Stijn Sanders · 编译Delphi 2010项目时,什么可能导致“找不到所需的包‘IndyCore’”?

11 年前

JakeSays · 从任务管理器隐藏和显示流程

12 年前

marco-fiset · 如何解决Delphi无法准确处理日期时间操作的问题?

12 年前

David Cornelius · 我找到了ComClass,现在我该如何引用它?

12 年前

Edgar Holguin · 德尔福与印度

12 年前

awmross · 为什么编译器会警告变量可能无法初始化?

12 年前