Question

我想迭代枚举中的项目。

我希望能够说出这样的话：

type
  TWeekdays = (wdMonday, wdTuesday, wdWednesday, wdThursday, wdFriday);

...
elementCount := GetElementCount(TypeInfo(TWeekDays));

for i := 0 to elementCount - 1 do begin
  ShowMessage(GetEnumName(TypeInfo(TWeekdays),i));
end;

我能来的最接近的是：

function MaxEnum(EnumInfo: PTypeInfo): integer;
const
  c_MaxInt = 9999999;
var
  i: integer;
  s: string;
begin
  //get # of enum elements by looping thru the names
  //until we get to the end.
  for i := 0 to c_MaxInt do begin
    s := Trim(GetEnumName(EnumInfo,i));
    if 0 = Length(s) then begin
      Result := i-1;
      Break;
    end;
  end;
end;

我使用的是这样的：

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i, nMax: integer;
begin
  ListBox1.Clear;
  nMax := MaxEnum(TypeInfo(TWeekdays));
  for i := 0 to nMax do begin
    ListBox1.Items.Add(GetEnumName(TypeInfo(TWeekdays),i));
  end;
end;

这很有效，除了我看到的列表（注意最后两项）：

wdMonday
wdTuesday
wdWednesday
wdThursday
wdFriday
Unit1
'@'#0'ôÑE'#0#0#0#0#0#0#0#0#0#0#0#0#0  <more garbage characters>

最后的两个项目显然不是我想要的。

有没有更好的方法来遍历枚举类型的元素？

如果没有，那么可以安全地假设总是使用我当前的方法完全两个额外项目？显然一个是单位名称......但是“@”符号在做什么？它真的是垃圾，还是更多的类型信息？

我正在使用Delphi 2007。感谢您的任何见解。

Answer 1

简单：

type
  TWeekdays = (wdMonday, wdTuesday, wdWednesday, wdThursday, wdFriday);

procedure Test;
var
  el: TWeekdays;
begin
  for el := Low(TWeekdays) to High(TWeekdays) do
    ; //
end;

Answer 2

当使用特殊枚举时，它比这复杂得多......让我们看到一个真正100％可行的解决方案，用于复杂的枚举定义：

type
    TmyEnumType=(myEnumTypeA=5,myEnumTypeB=2,myEnumTypeC=9);
const
     myEnumTypeOrder:Array[1..3] of TmyEnumType=(myEnumTypeA,myEnumTypeB,myEnumTypeC);
procedure TForm1.Button1Click(Sender: TObject);
var
   myEnumTypeVariable:TmyEnumType;
begin
     myEnumTypeVariable:=Low(TmyEnumType);
     for myEnumTypeVariable in myEnumTypeOrder
     do begin
             ShowMessage(IntToStr(Ord(myEnumTypeVariable))); // Sample code to show enum integer value
             // Extra code you neede
        end;
end;
// This code shows three messages in this secuence: 5, 2, 9
//    Correct number of elements and in the correct order

注意：

并非所有枚举定义都必须从0开始并且是连续的，可以在样本上定义
了解如何定义类型（未排序，不连续等等）
了解如何使用正确的元素顺序添加一个常量数组
必须迭代此类数组，因为订单丢失且Succ和Pred在这种枚举上无法正常工作

为什么这样做？：

枚举顺序必须保存且不连续
Delphi在该样本上创建类型TmyEnumType时为其分配（9-2 + 1 = 8）个元素（从较低的一个（2）到较高的一个（9）），因此这种类型的有效值来自顺序2到序数9
Delphi Succ和Pred函数只增加和减少1，不检查定义它的非连续方式，因此分配超出范围的值，并且也松散定义的顺序

诀窍：

使用正确顺序的元素声明一个连续的常量数组
循环该常量数组

如果你尝试这个（逻辑的人类思维方式）它将无法工作（无论是使用循环，循环，重复，直到等）：

type
    TmyEnumType=(myEnumTypeA=5,myEnumTypeB=2,myEnumTypeC=9);
procedure TForm1.Button1Click(Sender: TObject);
var
   myEnumTypeVariable:TmyEnumType;
begin
     for myEnumTypeVariable:=Low(TmyEnumType) to High(TmyEnumType);
     do begin
             ShowMessage(IntToStr(Ord(myEnumTypeVariable))); // Sample code to show enum integer value
             // Extra code you neede
        end;
end;
// This code shows eight messages in this secuence: 2, 3, 4, 5, 6, 7, 8, 9
//    Inorrect number of elements and in order is lost

这就是我在Turbo Delphi 2006上测试过的。

Answer 3

您可以使用Succ（x）和Pred（x）循环枚举。但请记住检查边界，这样你就不会在枚举的最后一个元素上尝试Succ（x）！

示例：

type
  TWeekdays = (wdMonday, wdTuesday, wdWednesday, wdThursday, wdFriday);

procedure Test;
var
  val: TWeekdays;
begin
  val := wdTuesday;
  val := Succ(val); // wdWednesday

  val := wdFriday;
  val := Pred(val); // wdThursday, 
end;

Answer 4

我创建了一个EnumerationEnumerator，因此您可以在Delphi的'for ... in'语句中使用它。但是，那时它有时会产生内部编译器错误。

修改

管理它以便在Delphi 2007及更高版本中运行，请参阅this blog article（以及其中非常有趣的讨论）。

在Delphi中迭代枚举中的项目

4 个答案: