为什么我得到一个“枚举类型”的“类型没有类型信息”错误

Question

我声明了以下枚举类型，我希望第一个成员的序数值为1（一个），而不是通常的0（零）：  type    TMyEnum = (               meFirstValue = 1,               meSecondValue,               meThirdValue              );如果我调用TypeInfo（），例如，作为对GetEnumName（）的调用的一部分，则会出现编译器错误：  GetEnumName(TypeInfo(TMyEnum), Ord(aValue));错误：“ E2134：类型'TMyEnum'没有typeinfo”为什么是这样？我知道，只有在启用$ M编译器选项或（从某些类（例如TPersistent）派生）进行编译的情况下，类才具有typeinfo ，但我认为为枚举类型使用typeinfo并不存在任何特殊条件。

Answer 1

不连续的枚举，以及不是从零开始的枚举，都没有typeinfo。要实现typeinfo tkEnumeration，由于向后兼容性问题，它的格式必须与现有格式不同。

我考虑过tkDiscontiguousEnumeration为Delphi 2010 实现一个（或可能命名更好的成员），但是考虑到它们的相对稀缺性以及枚举的困难，收益似乎很小-您如何有效地编码范围？有些编码在某些情况下更好，而在另一些情况下则更糟。

Answer 2

当您想将枚举转换为特定值（并返回）时，我通常使用每个枚举值所需的值创建一个数组const：

Const MyEnumValues: array[TMyEnum] of integer = (1,2,5);

这样，当枚举扩展时，您会得到一个编译器错误，指出您缺少数组值。

请注意，更改枚举顺序时，必须相应更改值。

要获取枚举值的“值”，只需编写：

Value := MyEnumValues[myenum];

为了获得基于“值”的枚举值，只需循环MyEnumValues的值即可：

Function GetEnumByValue(value:integer): TMyEnum;

Var

  myenum: TMyEnum;

Begin

  For myenum = low(TMyEnum) to high(TMyEnum) do

    If MyEnumValues[myenum] = value then

      exit(myenum);

  Raise exception.create(‘invalid value for tmyenum’);

End;