有办法遍历枚举嘛？

Question

type aaa = (fff,ddd,eee,xxx,lll,iii,jjj,kkk,bbb);var  a:aaa;……begin
  a:=fff;
  
  while (变量，循环用) do
  begin
    inc(变量)；
    //-----------------------------
      同时我向在这里让a也便到下一个枚举值，我该怎么做丫？
    //-----------------------------
  end
end;

Answer 1

变量使用Integer,步长使用枚举类型的下标，这对有相应间隔的可以实现。还可以取后继值的函数可以用。我记不清是那个了。

Answer 2

A:要比较的变量
B：呢自己声明的aaa
if A in B then 
begin
想干什么干什么
end;

Answer 3

var
  I: TYourEnumType;
begin
  for I := Low(TYourEnumType) to High(TYourEnumType) do
.........

Answer 4

枚举是可以通过下标（int）来访问的，楼上的方法就可以了。