数组与枚举


type

  TMyEnum = (Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); {定义枚举}

var

  weekArr: array[TMyEnum] of string; {定义数组}

  myEnum: TMyEnum;                   {定义枚举变量}

begin

  {数组赋值}

  weekArr[Monday]    := '星期一';

  weekArr[Tuesday]   := '星期二';

  weekArr[Wednesday] := '星期三';

  weekArr[Thursday]  := '星期四';

  weekArr[Friday]    := '星期五';

  weekArr[Saturday]  := '星期六';

  weekArr[Sunday]    := '星期天';



  {调用数组}

  ShowMessage(weekArr[Sunday]); {星期天}



  {遍历数组}

  for myEnum := Low(weekArr) to High(weekArr) do

  begin

    ShowMessage(weekArr[myEnum]); {将分别显示: 星期一 ... 星期天}

  end;

end;


 
   

你可能感兴趣的:(数组)