BCB运行期取得Enum(枚举)类型信息

由于Pascal和C++的本质区别，在Delphi里面强大的RTTI功能，BCB中就被相对弱化了很多。
不过即便如此，BCB仍然可以享受TObject带来的好处,
虽然我们不能够直接使用在delphi下十分方便的GetEnumName。

 

我们还是不需要为每个枚举类型实现一个静态的String列表。

考虑一下如下的宏实现，为了享受TObject的好处，我们需要从它继承一个VCL子类，

并且为这个类声明一个属性，使得我们可以使用GetPropInfo来取得ENUM类型信息。

 

#include <TYPINFO.HPP>

 

#define Marco_PrepareEnumerateName(ENUM)  /

class ___TEnumObject___ : TObject         /

{                                         /

  ENUM _se;                               /

__published:                              /

  __property ENUM Prop ={read=_se};       /

};                                        /

AnsiString GetEnumName(const ENUM& value) /

{                                         /

                                          /

  PPropInfo aPropInfo = GetPropInfo(__typeinfo(___TEnumObject___), "Prop"); /

  if (aPropInfo)                                                            /

  {                                                                         /

    return GetEnumName(*(aPropInfo->PropType), int(value));                 /

  }                                                                         /

  return "";                                                                /

}

 

 

有了这个宏的实现，使得将来取得enum类型的时候，事情变得更加容易。

本来计划使用template技术来实现的，但是__property声明后不允许使用模板参数。所以作罢。

//以下为测试代码 

typedef enum {xxx,yyy,zzz,eee,ffff} TSampleEnum;

Marco_PrepareEnumerateName(TSampleEnum)

 

void __fastcall TForm1::Button1Click(TObject *Sender)

{

  Caption = GetEnumName(xxx);

}