Delphi 2010 RTTI：如何整合/探索包含自定义属性的枚举

Question

我使用 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 方法），但是如何访问枚举中的每个值并访问它的定义属性？

感谢您提供任何信息

Answer 1

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

如果枚举值本身就是类型，您将使用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;