急啊！怎么从定义好的子界类型变量里取它的第n个值

Question

急啊！怎么从定义好的子界类型变量里取它的第n个值

Answer 1

不能办到。
只能用case的形式监测，不能读写。

Answer 2

TWeek=(mon,tue,wed,thu,fri,sat,sun)；你不用比较的方法，把第三个值wed取出来看看试试。

Answer 3

//只能用Case判断
procedure TForm1.Button1Click(Sender: TObject);
type
  TDay = (s1,s2,s3,s4,s5);
  Day = s1..s5;
function GetNum(num: integer):Day;
begin
  case num of
    1: result:=s1;
    2: result:=s2;
    3: result:=s3;
    4: result:=s4;
    5: result:=s5;
  end;
end;
var
  Test: Day;
begin
  Test := GetNum(3);
end;