Как преобразовать целое число в нумерованный тип?

Я знаю, как преобразовать перечислимый тип в целое.Как преобразовать целое число в нумерованный тип?

type 
    TMyType = (mtFirst, mtSecond, mtThird); 

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

Но как сделать обратную операцию и преобразовать целое число в нумерованный тип?

источник

2012-01-04 lyborko

типа TMyType = (mtFirst = 1, mtSecond = 2, mtThird = 3); var ordValue: integer; enumValue: TMyType; ordValue: = Целое число (mtSecond); // result is 2 –

Как ответил Кен, вы просто бросить его. Но чтобы убедиться, что у вас есть правильное значение, которое вы можете использовать такой код:

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

источник

2012-01-04 19:06:38 ain

спасибо ... я копал где-то в RTTI ... eh ... – lyborko

Ох можно использовать RTTI для получить допустимые диапазоны и таким образом убрать этот код –

@KenWhite AFAIK можно выбросить любое значение (вне диапазона) для перечисления, и оно не будет увеличивать исключение - вам нужно написать проверку диапазона самостоятельно. – ain

Вы можете разыгрывать целое число от типажей его перечислимого типа:

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

источник

2012-01-04 19:01:58

О да ... спасибо, я знал, что это что-то тривиальное ... :-) – lyborko

Позаботьтесь с литьем, поскольку она требует полного сопоставления с вашим порядковым типом и целыми числами. Например:

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

источник

2013-12-27 18:26:08 user3140262

Как преобразовать целое число в нумерованный тип?

ответ

Смежные вопросы