<br><br><div class="gmail_quote">On 30 August 2010 11:37, Graeme Geldenhuys <span dir="ltr"><<a href="mailto:graemeg.lists@gmail.com">graemeg.lists@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Op 2010-08-30 12:30, Frank Church het geskryf:<br>
<div class="im">> Is there a subroutine that can convert an enum value to a strings, so<br>
> that I can do something like ShowMessage(EnumToStr(enumValue))?<br>
<br>
<br>
</div>eg:<br>
<br>
function ObjectStateToString(AObjectState : TPerObjectState): string;<br>
begin<br>
  result := GetEnumName(TypeInfo(TPerObjectState),<br>
                         Ord(AObjectState));<br>
end;<br>
<br></blockquote><div><br>Is there a way to pass the enum so that the type will not matter, so that the type can be determined at runtime, so that it is not necessary to create a new function for every type? <br> <br></div>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<br>
GetEnumName is defined in 'typinfo' unit.<br>
<br>
<br>
Regards,<br>
  - Graeme -<br>
<font color="#888888"><br>
--<br>
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal<br>
<a href="http://opensoft.homeip.net/fpgui/" target="_blank">http://opensoft.homeip.net/fpgui/</a><br>
<br>
_______________________________________________<br>
fpc-pascal maillist  -  <a href="mailto:fpc-pascal@lists.freepascal.org">fpc-pascal@lists.freepascal.org</a><br>
<a href="http://lists.freepascal.org/mailman/listinfo/fpc-pascal" target="_blank">http://lists.freepascal.org/mailman/listinfo/fpc-pascal</a><br>
</font></blockquote></div><br><br clear="all"><br>-- <br>Frank Church<br><br>=======================<br><a href="http://devblog.brahmancreations.com">http://devblog.brahmancreations.com</a><br>