存储枚举的列表类？

Question

我应该使用什么列表类型来存储枚举值？我尝试过使用 TObjectList，我将其转换为 TObject 以添加值，但在从列表中读取时无法将其转换回枚举。

你用什么列表来存储枚举？

Answer 1

将枚举转换为 Pointer 或 TObject 并返回效果很好。如果您的 Delphi 版本支持泛型，请使用 Tim 的建议，效果会更好。或者，您可以使用动态数组（TTestEnum 数组）或围绕动态数组创建一个包装类 - 这就是在支持泛型的 Delphi 版本中实现泛型列表的方式。

这是一个快速控制台演示，使用 TList，而不是 TObjectList，因为 TList 对它所保存的项目做出的假设较少。

program Project1;

{$APPTYPE CONSOLE}

uses SysUtils, Classes;

type TTestEnum = (enum1, enum2, enum3, enum4);

var L: TList;
    i: Integer;
    E: TTestEnum;

begin
  L := TList.Create;
  try
    L.Add(Pointer(enum1));
    L.Add(Pointer(enum2));
    L.Add(Pointer(enum3));
    L.Add(Pointer(enum4));
    for i:=0 to L.Count-1 do
    begin
      E := TTestEnum(L[i]);
      case E of
        enum1: WriteLn('enum1');
        enum2: WriteLn('enum2');
        enum3: WriteLn('enum3');
        enum4: WriteLn('enum4');
      end;
    end;
  finally L.Free;
  end;
  ReadLn;
end.

Answer 2

你不能只使用泛型吗？

TList<TEnumName>;

Answer 3

这个答案可能会有所帮助。它是通过创建后代来将记录存储在 TList 中以避免所有类型转换。请注意，您无需担心为枚举值分配/释放内存，因为它们是适合指针空间的简单序数类型。

请注意，当 Add 到列表时，您必须类型转换为 Pointer，并且在读回时可能必须类型转换为 `YourEnum(Integer(List[Index]))。但是，我链接到的代码显示了如何在后代类中处理这两种情况，因此每种方式只完成一次，并且隐藏在类实现中。