<div dir="ltr">Oops, sorry, <raw> tag on nabble platform cutted my code. :S<br><div class="gmail_extra"><br><div class="gmail_quote">On Fri, Dec 12, 2014 at 11:46 PM, silvioprog <span dir="ltr"><<a href="mailto:silvioprog@gmail.com" target="_blank">silvioprog@gmail.com</a>></span> wrote:<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">But if you want speed in your conversion, GetEnumName is more fast than<br>
WriteStr. :3</blockquote><div> </div><div><div>uses</div><div>  typinfo;</div><div><br></div><div>type</div><div>  tenum = (e1, e2, e3);</div><div><br></div><div>procedure TForm1.Button1Click(Sender: TObject);</div><div>const</div><div>  c = 10000000;</div><div>  m = 'hh:nn:ss:zzzz';</div><div>var</div><div>  i: integer;</div><div>  en: tenum;</div><div>  s, r: string;</div><div>  b, e: tdatetime;</div><div>begin</div><div>  en := e2;</div><div>  b := now;</div><div>  for i := 1 to c do</div><div>    writestr(s, en);</div><div>  e := now;</div><div>  r := formatdatetime(m, e - b);</div><div>  e := b;</div><div><br></div><div>  b := now;</div><div>  for i := 1 to c do</div><div>    getenumname(typeinfo(tenum), integer(en));</div><div>  e := now;</div><div><br></div><div>  r += ' - ' + formatdatetime(m, e - b);</div><div><br></div><div>  ShowMessage(r);</div><div>end; </div></div><div><br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
Result:<br>
<br>
00:00:04:336 - 00:00:01:407</blockquote></div><div class="gmail_extra"><br></div>-- <br><div class="gmail_signature">Silvio Clécio<br>My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a></div>
</div></div>