//一一列举呗
type
TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient, alCustom);
//对齐方式
相当于序数//但有专用标识
用Ord()返回它的位置//从0开始
Succ()//前一个
Pred()//后一个
type
TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient, alCustom);
//对齐方式
相当于序数//但有专用标识
用Ord()返回它的位置//从0开始
Succ()//前一个
Pred()//后一个
例子:type dayofweek=(sun,mon,tue,wed,thu,fri,sat);
以后你用到dayofweek类型的数据,其值是却只能是上面括号里列出的其中一个,比如是sun,mon等等,,枚举的意思就是把值一一列出,,
type typename=(val1,....,valn)
例如:
type suit=(club,diamond,heart,spade);//类型定义
var suit1:suit; //变量声明
其中club,diamond,heart和spade的序数值分别为0、1、2和3。