其他分享
首页 > 其他分享> > 数组与枚举

数组与枚举

作者:互联网

先自定义枚举类型,然后用该枚举类型的个数定义一个字符串数组,再定义一个该枚举类型的变量,用于for循环时:

procedure TForm1.Button3Click(Sender: TObject);
type
  Tweeks=(mon,Tue,wed,thu,fri,sat,sun);
var
  arr:array [Tweeks]of string; //這裡arr初始化了,值為('', '', '', '', '', '', '')
  weekday:Tweeks;//自定義Tweeks類
  i:Integer; //Integer也是一個類
begin
  Memo1.Clear;
  arr[mon]:='星期一';
  arr[Tue]:='星期二';
  arr[wed]:='星期三';
  arr[thu]:='星期四';
  arr[fri]:='星期五';
  arr[sat]:='星期六';
  arr[sun]:='星期天';
  //至此arr賦完值了,值為('星期一', '星期二', '星期三', '星期四', '星期五', '星期六', '星期天')
  for weekday:=Low(arr)to High(arr)do //weekday是像i一樣的變量!!!這裡定義weekday為Tweeks類。
  begin
    Memo1.Lines.Add(arr[weekday]);
  end;

end;

 

标签:arr,end,Tweeks,枚举,weekday,数组,sat
来源: https://www.cnblogs.com/168-h/p/15250657.html