此例应用了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区块中。