取得枚举类型enum中的元素名称

此例应用了VCL的RTTI机制

...#include <typinfo.hpp>enum number {One,Two,Three,Four,Five,Six};class TForm1 : public TForm{...private:    number FNum;__published:    __property number Num = { read = FNum };};.CPP文件...void __fastcall TForm1::Button1Click(TObject *Sender){    PPropInfo propInfo = GetPropInfo(__typeinfo(TForm1),"Num");    ShowMessage(GetEnumName(*(propInfo->PropType),2)); //显示"Three"}

   如果要根据字符串得到enum的整型值改用GetEnumValue函数，但这两种操作都只能用于没有对枚举元素自定义数值时可用。

在Delphi中不用这么麻烦，直接使用TypeInfo()函数就可以取得enum类型的PTypeInfo，如
GetEnumName(TypeInfo(number),2);
而且，BCB中的__typeinfo宏不能对enum直接操作，而必须是类，不能直接取得TTypeInfo，所以没办法，只能先取得类成员的PPropInfo信息，使用GetPropInfo函数，不知道C++本身有没有类似函数，反正这个函数是VCL的，而且GetPropInfo的第二个参数也必须是VCL特殊的成员，必须放在__published区块中。