Delphi 列挙型 ⇔ 文字列, 列挙型 ⇔ 数値

TWindowStateでの例

列挙型と文字列

1. S := GetEnumName(TypeInfo(TWindowState), Ord(WindowState));  
2. // 文字列 "wsNormal" 等が返る  
3.   
4. WindowState := TWindowState(GetEnumValue(TypeInfo(TWindowState), S));  
5. // TWindowState 型 wsNormal 等が返る  

S := GetEnumName(TypeInfo(TWindowState), Ord(WindowState));
// 文字列 "wsNormal" 等が返る

WindowState := TWindowState(GetEnumValue(TypeInfo(TWindowState), S));
// TWindowState 型 wsNormal 等が返る

列挙型と数値(byte)

1. var I: Byte;  
2. I := Ord(WindowState);  
3.   
4. WindowState := TWindowState(I);  

var I: Byte;
I := Ord(WindowState);

WindowState := TWindowState(I);