Delphi枚举类型的值转INT

枚举类型第1个元素值为0,第2个值为1,依此类推,可以用Ord来获取

例如:有枚举类型

E_ScreenColor_G56 = (eSCREEN_COLOR_NUll, eSCREEN_COLOR_SINGLE, // 单基色1
    eSCREEN_COLOR_DOUBLE, // 双基色
    eSCREEN_COLOR_THREE, // 七彩色
    eSCREEN_COLOR_FULLCOLOR // 全彩色
    );

ShowMessage(IntToStr(Ord(eSCREEN_COLOR_DOUBLE)));  //uses system

值为2

 

posted @ 2021-07-22 18:05  tc310  阅读(357)  评论(0编辑  收藏  举报