enums - pascal 中 'read' 枚举类型的任何简单方法？

Question

用户输入一个整数，它对应于定义的枚举类型的值。我需要将该值分配给变量 t。这是我的想法:

type test = (red,green,blue,fish);
var t:test;
    n,i:integer;
begin
  readln(n);
  t:=red;
  for i:=1 to n do
    t:=succ(t);
end.

我是否使任务过于复杂？是否可以编写更简单的算法？

Answer 1

您应该能够将整数转换为枚举类型，例如:

t := test(n);

如果你想走另一条路，那么使用ord:

n := ord(t);

这应该可以让您按数字移动到列表中的任何项目。您可以使用以下方法检查边界:

Ord(Low(test)))

和

Ord(High(test))

..其中 test 是您的类型。