Delphi枚举类型，子界类型简单测试

 

Delphi枚举类型，子界类型简单测试

 

type MeiJu = (one,two,three); ZiJie = 1..3;var mj:MeiJu; zj:ZiJie; arr:array[Meiju] of string; zjarr:array[ZiJie] of integer; i,j:integer;begin arr[one]:='星期一'; arr[two]:='星期二'; arr[three]:='星期三'; for mj:=Low(arr) to High(arr) do begin ShowMessage(arr[mj]); end; //ShowMessage(IntToStr(zj)); for zj:=Low(zjarr) to High(zjarr) do begin //zjarr[0]:=5; zjarr[1]:=10; zjarr[2]:=20; zjarr[3]:=30; ShowMessage(IntToStr(zjarr[zj])); end;end;