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;