新手小问题，枚举类型的定义

Question

VB里的枚举定义如下
Public Enum InterfaceColors
   icMistyRose = &HE1E4FF&
   icSlateGray = &H908070&
   icDodgerBlue = &HFF901E&
   icDeepSkyBlue = &HFFBF00&
   icSpringGreen = &H7FFF00&
   icForestGreen = &H228B22&
   icGoldenrod = &H20A5DA&
   icFirebrick = &H2222B2&
End Enum
请问在DELPHI里如何定义，谢谢

Answer 1

类似这样了type
  InterfaceColors = (icMistyRose   = $FF00FFFF
                    ,icSlateGray   = $FFF0FFFF
                    ,icDodgerBlue  = $FFF0FFFF
                    ,icDeepSkyBlue = $FFF0FFFF
                    ,icSpringGreen = $FFF0FFFF
                    ,icForestGreen = $FFF0FFFF
                    ,icGoldenrod   = $FFF0FFFF);

Answer 2

type
  TInterfaceColors = (icMistyRose = $E1E4FF,
                      icSlateGray = $908070,
                      icDodgerBlue = $FF901E, 
                      icDeepSkyBlue = $FFBF00, 
                      icSpringGreen = $7FFF00,
                      icForestGreen = $228B22, 
                      icGoldenrod = $20A5DA, 
                      icFirebrick = $2222B2);

Answer 3

  TDataSetState = (dsInactive, dsBrowse, dsEdit, dsInsert, dsSetKey,
    dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead,
    dsInternalCalc, dsOpening);

Answer 4

Harryfin 这个坏家伙,快我10秒 

Answer 5

就枚举类型的定义来说，2楼正解。 starluck的没定义枚举值的序号。不过，在实际使用中，TInterfaceColors的枚举值是不能直接当成整数值来用的，编译时会出现到类型不一致的错误，得用ord函数转换成整数，并不方便。建议还是直接定义成整数常量吧：const
  icMistyRose = $E1E4FF;
  icSlateGray = $908070;
  icDodgerBlue = $FF901E; 
  icDeepSkyBlue = $FFBF00; 
  icSpringGreen = $7FFF00;
  icForestGreen = $228B22; 
  icGoldenrod = $20A5DA; 
  icFirebrick = $2222B2;

Answer 6

type
  EnumState = (aa = 1, bb,cc, ...)
可以赋值，也可以不需要值，如果是第一个赋值为1的话，后面不用赋值，陆续＋1

Answer 7

type 
  EnumState = (aa = 1, bb,cc, ...)