|
type Size = (Small = 5, Medium = 10, Large = Small + Medium);
（2）枚举类型与集一些写法
type
TToolBtnStyle=(tbNew,tbChg,tbDel,tbCopy,tbSave,tbSearch,tbFormat,tbPreview,tbPrint,tbExit,tbDv1,tbDv2,tbDv3);
TToolBtnStyles=set of TToolBtnStyle;
tbNew in [tbNew,tbChg,......]
（3）枚举类型可以强制转换，例如if Integer(tbNew)=1 then这样的写法
|