枚举与数组的使用

枚举与数组的使用

参考1：http://www.cnblogs.com/del/archive/2008/01/09/1031196.html

参考2：http://blog.youkuaiyun.com/qustdong/article/details/9230743

program Project1;

{$APPTYPE CONSOLE}
uses
  SysUtils,Windows,Dialogs;
type
    Tnum = (One, Two ,Three);
var
   s:string;
   TestArr : array[Tnum] of string = ('yi','er','san');
   Number:Tnum;
begin
     writeln(IntToStr(Ord(Two)));
     for Number := Low(Tnum) to High(Tnum) do
         Writeln(TestArr[Two]);
     Readln;
     Number := Two;
     Outputdebugstring('debug');  // Windows
     showmessage(TestArr[One]);    //Dialogs
     ShowMessage(TestArr[Number]);
end.

 

posted on 2016-07-28 15:47 HiRong 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/zhrong/p/5715063.html