如何将整数转换为枚举类型？

Question

我知道如何将枚举类型转换为整数.

type
  TMyType = (mtFirst, mtSecond, mtThird); 

var 
  ordValue:integer;
  enumValue:TMyType;
...
ordValue:= Ord(mtSecond); // result is 1

但是,如何进行逆运算并将整数转换为枚举类型？

Answer 1

肯回答说,你就是投了它.但为了确保您具有正确的价值,您可以使用以下代码:

if (ordValue >= Ord(Low(TMyType))) and (ordValue <= Ord(High(TMyType))) then
    enunValue := TMyType(ordValue)
else 
    raise Exception.Create('ordValue out of TMyType range');

Answer 2

您可以通过将类型转换为枚举类型来强制转换整数:

ordValue := Ord(mtSecond);
enumValue := TMyType(ordValue);

Answer 3

注意使用强制转换,因为它需要使用序数类型和整数进行完全映射.例如:

type Size = (Small = 2, Medium = 3, Huge = 10);
var sz: Size;
...
sz := Size(3); //means sz=Medium
sz := Size(7); //7 is in range but gives sz=outbound