德爾福2010 RTTI：如何interegate /探索含枚舉自定義屬性

Question

我創建利用TCustomAttribute子類（TEnumAttribute）給每個枚舉附加數據（如果成功的話，這將推動自定義組件，可以查詢枚舉枚舉並相應地填充）。

 

type 
    TShoppingCartType = (

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

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

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

    [TEnumAttribute(3, 'Custom')] 
    sctWebCustomList 

    ); 
 

我能得到的名稱和值就好了（使用對應的所屬類別GetEnum方法），但我怎麼能在它被定義屬性的枚舉和接入訪問每個價值？

感謝任何信息

Answer 1

至於我能看到你只能標註類型與屬性。由於枚舉的值只是一個簡單的序數值，因此您的方法可能不起作用。

如果枚舉值分別爲類型本身是在官方的文檔中描述你將使用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;