Enum types are converted to each other (using Getenumname and typeinfo two functions)

Uses
Classes,typinfo;

Type
Tcommandtype = (ctemptycommand,ctadd,ctmodify);

Tcommandtypeconvert=class
Public
class function Commandtostring (Acommand:tcommandtype): string;
class function Stringtocommand (const astrcommand:string): Tcommandtype;
End

Implementation

class function Tcommandtypeconvert.commandtostring (Acommand:tcommandtype): string;
Begin
Result: = getenumname(TypeInfo (Tcommandtype), Ord (Acommand));
End

class function Tcommandtypeconvert.stringtocommand (const astrcommand:string): Tcommandtype;
Begin
Result: = Tcommandtype (getenumvalue(TypeInfo (Tcommandtype), Astrcommand));
End

End.

http://blog.csdn.net/tercel99/article/details/7791652

Enum types are converted to each other (using Getenumname and typeinfo two functions)