取得枚举类型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区块中。