Op 2010-08-30 12:30, Frank Church het geskryf:
> Is there a subroutine that can convert an enum value to a strings, so
> that I can do something like ShowMessage(EnumToStr(enumValue))?
eg:
function ObjectStateToString(AObjectState : TPerObjectState): string;
begin
result := GetEnumName(TypeInfo(TPerObjectState),
Ord(AObjectState));
end;
GetEnumName is defined in 'typinfo' unit.
Regards,
- Graeme -
--
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
