Re: [fpc-pascal] How can you convert an enum value to string?

[Sven Barth]

Am 30.08.2010 12:37, schrieb Graeme Geldenhuys:
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.

Another possibility is this (requires 2.4.0 or newer):

function ObjectStateToString(AObjectState : TPerObjectState): string;
begin
  WriteStr(Result, AObjectState);
end;

WriteStr works the same as Write, but with a String as a argument 
instead of a File. See here: 
http://www.freepascal.org/docs-html/rtl/system/writestr.html

Regards,
Sven
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal