[plain] view plain copy
<strong>根据枚举定义集合 </strong>  
  TMyColor = (mcBlue, mcRed);  
  TMyColorSet = set of  TMyColor ;  

[plain] view plain copy
<strong>根据枚举定义数组</strong>  
type  
TMyEnum = (red,green,blue); {定义枚举}  
procedure TForm1.Button1Click(Sender: TObject);  
const  
    ColorArr: array[TMyEnum] of string=('红','绿','蓝'); {定义数组}  
var  
    myEnum: TMyEnum; {定义枚举变量}  
begin  
for myEnum := Low(ColorArr) to High(ColorArr) do  
begin  
   ShowMessage(ColorArr[myEnum]); //myEnum变化时，就得到它对应的描述  
end;  


[plain] view plain copy
<strong>枚举类型</strong>  
　　Pascal程序不仅用于数值处理，还更广泛地用于处理非数值的数据。例如，性别、月份、星期几、颜色、单位名、学历、职业等。  

1、枚举类型的定义  
   格式:　type 枚举类型标识符=(标识符1,标识符2,…,标识符n)  

2、枚举类型数据特点  

① 枚举元素只能是标识符；  

例如，下列类型定义是合法的：  
　　    type  days=(sun,mon,tue,wed,thu,fri,sat);  
　　        colors=(red,yellow,blue,white,black,green);  
　　     而下列类型定义是错误的:  
　　   type colortype=('red','yellow','blue','white');  
　　          numbers=(1,3,5,7,9);  

定义枚举类型时列出的所有枚举元素构成了这种枚举类型的值域（取值范围）。  


② 枚举类型属于顺序类型  
　  根据定义类型时各枚举元素的排列顺序确定它们的序号，且序号从0开始。  

例如，定义type days=(sun,mon,tue,wed,thu,fri,sat);  

则， ord(sun)=0,ord(mon)=1,……，以此类推。  

枚举类型中的第一个元素无前趋，最后一个元素无后继。   
       pred(sat)=fri; succ(sun)=mon; ord(sat)=6;   


③ 同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。如下列定义是错误的:  
　　 type color1=(red,yellow,white);  
　　　　  color2=(blue,red,black);　  

 因为red属于枚举类型color1和 color2  

④ 枚举类型变量只能进行赋值运算和关系运算，不能进行算术运算和逻辑运算。  
　　在枚举元素比较时，实际上是对其序号的比较。  

　例如定义如下：  
　　  type days=(sun,mon,tue,wed,thu,fri,sat);  
　　　　  colors=(red,yellow,blue,white,black,green);  
　　  var color:colors;  
　　　  　weekday:days;  
　则下面语句是合法的:  weekday:=mon;  
　　                   if weekday=sun then write('rest');  
　而下面语句是不合法的:  

mon:=1;           错把枚举值当成变量名；  

weekday:=blue；   枚举值blue不属于枚举变量weekday的值域；  

read(color);      枚举类型变量 不能用读语句进行赋值；  

write(weekday); writeln(blue);不能通过写语句输出枚举类型的变量值和枚举值。  


⑤ 可以把变量的说明与类型的定义合并在一起，如:  
　　var holiday,workday:(sun,mon,tue,wed,thu,fri,sat);  
　　　  color:(red,yellow,blue,white,black,green);  

对枚举数据的输入与输出可通过间接方式进行。输入时，一般可输入一个代码，通过程序进行转换，输出时，也只是打印出与枚举元素相对应的字符串。这在后面的例题中将有使用示例。  

二、枚举类型的应用  
例1、输入今天是星期几的序号，输出明天是星期几的英文单词（星期天序号为0）。  
　　type weekday=(sun,mon,tue,wed,thu,fri,sat);  
　　 var i : integer;  
　　　　 today,tomorrow : weekday;  
　　begin  
　　　writeln('What date is it'); readln(i);  
　　　case i of                              { 根据输入转换成枚举型 }  
　　　　0:today:=sun;  
　　　　1:today:=mon;  
　　　　2:today:=tue;  
　　　　3:today:=wed;  
　　　　4:today:=thu;  
　　　　5:today:=fri;  
　　　　6:today:=sat;  
　　　end;                            

if (today=sat) then tomorrow:=sun  else tomorrow:=succ(today);  
　　  write('The tomorrow is ');      
　　　case tomorrow of  
　　　　sun:writeln('sunday');  
　　　　mon:writeln('monday');  
　　　　tue:writeln('tuesday');  
　　　　wed:writeln('wednesay');  
　　　　thu:writeln('thursday');  
　　　　fri:writeln('friday');  
　　　　sat:writeln('saturday');  
　　　end;  
　　end.  
    枚举类型是一种有序类型，所以枚举类型的变量可以作为循环变量。  

[plain] view plain copy
<strong>子界类型</strong>  
如果我们定义一个变量为integer型，那么它的取值范围一般为-32768～32767。而事实上，每个程序中所用的变量的值都有一个确定的范围。 例如，人的年龄一般为1到120岁，一年中的月数为1到12月，一月中的天数为1到31天等等。  
　　如果能在程序中对所用的变量的值域作具体规定，就便于检查出那些不合法的数据，这就能更好地保证程序运行的正确性且在一定程度上节省内存空间。  
　　  
   子界类型能很好解决上面的问题。此外，在数组的定义中，常用到子界类型，以规定数组下标的范围。  

1、定义格式：  
     type 子界类型标识符=常量1..常量2   
      常量1称为子界的下界，常量2称为子界的上界；  
①下界和上界必须是同一顺序类型（该类型称为子界类型的基类型），且上界的序号必须大于下界的序号。  
  例如　type age=1..100;  
　　　       letter='a' ..'z';  
②可以直接在变量说明中定义子界类型。如：  
　　type  letter='a'..' z ';  
　　　　　var ch1,ch2:letter;  
　　可以合并成:  
　　      var ch1,ch2:'a'..'d';  

2、子界类型数据的运算规则  
①凡可使用基类型的运算规则同样适用该类型的子界类型。  
　例如，可以使用整型变量的地方，也可以使用以整型为基类型的子界类型数据。  

②对基类型的运算规则同样适用于该类型的子界类型。  

　　例如，div，mod要求参加运算的数据为整, 因而也可以为整型的任何子界类型数据。  
③基类型相同的不同子界类型数据可以进行混合运算。  
　例如：设有如下说明：  
　　var  x:1..100;  
　　　　 y:1..500;  
　　　　 z:1..1000;  
　　　   a:integer;  
　　则下列语句是合法的： a:=Sqr(x)+y+z;   z:=x+y  
　　下列语句: y:=x+z+a; 当x+y+a的值在1～500范围内时是合法的，否则会出错。  
三、子界类型应用举例  
例1、使用子界型情况语句，当输入月、日、年(10 30 1986)，输出30 Oct 1986。  
　　　var month:1..12;　day:1..31;　year:1900..2003;  
　　　begin  
　　　　write('Enter date(mm dd yy):'); readln(month,day,year); write(day);  
case month of  
　　　　　1:write('Jan':5);  
　　　　　2:write('Feb':5);  
　　　　　3:write('Mar':5);  
　　　　　4:write('Apr':5);  
　　　　　5:write('May':5);  
　　　　　6:write('Jun':5);  
　　　　　7:write('Jul':5);  
　　　　　8:write('Aug':5);  
　　　　　9:write('Sep':5);  
　　　　　10:write('Oct':5);  
　　　　　11:write('Nov':5);  
　　　　　12:write('Dec':5);  
　　　　end;  
　　　　writeln(year:7);  
　　　end.  
例2、将一个四位的十六进制数转换成十进制数。  
Var ch:char; n:1..4;  d1,d2,d3,d4,t:0..15; s:real;  
Begin       
Write('The hex number is ');  
For n=1 to 4 do  
Begin                    { 把四位的十六进制数分四次作为字符读入 }  
Read(ch); write(ch);   { 分别转换为十进制的数d1,d2,d3,d4, }  
if (ch>='0') and (ch<='9')then t:=ord(ch)-48;  
if (ch>='a') and (ch<='z')then t:=ord(ch)-87;  
if (ch>='A') and (ch<='Z')then t:=ord(ch)-55;  
case n of  
1:di:=t;  
2:d2:=t;  
3:d3:=t;  
4:d4:=t;  
end,  
end;  
s:=d1*16*16*16+d2*16*16+d3*16+d4;  
writeln('dec:',s)  
end.



数组
type
    TBigByteArray = array [0 .. MaxInt - 1] of byte
    TBytes = TBigByteArray;
    PBigByteArray = ^TBigByteArray;

var
    PText: PBigByteArray 
//方法一：指针操作 分配空间
    GetMem(PText, 10);
//方法二：动态数组定义 推荐这种方式，代码简洁多了
    TextArr: array of byte; 
    SetLength(TextArr, 10);