Bir tam sayıyı numaralandırılmış bir türe nasıl dönüştürebilirim?

Question

Numaralandırılmış türün bir tam sayıya nasıl dönüştürüleceğini biliyorum.

type 
    TMyType = (mtFirst, mtSecond, mtThird); 

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

Ama nasıl ters işlemini yapmak ve numaralandırılmış bir türe bir tamsayı dönüştürebilirim?

Answer 1

, sadece döküm. Ama sen gibi kod kullanabilirsiniz doğru değeri olduğundan emin olmak için: sizin sıralı tip ve tamsayılar ile tam eşleme gerektirdiğinden döküm ile dikkat

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

Sen numaralandırılmış türüne gönderilir typecasting tarafından tamsayı yayınlayabileceğim: Ken cevap olarak

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

Answer 3

. Örneğin:

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