<div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr">Hi.<div><br></div><div>Please consider the following code:</div><div><font face="monospace, monospace" size="1"><br></font></div><div><div><font face="monospace, monospace" size="1">uses TypInfo;</font></div><div><font face="monospace, monospace" size="1"><br></font></div><div><font face="monospace, monospace" size="1">type</font></div><div><font face="monospace, monospace" size="1">  TTestRecord = record</font></div><div><font face="monospace, monospace" size="1">    Member1: LongInt;</font></div><div><font face="monospace, monospace" size="1">    Member2: Double;</font></div><div><font face="monospace, monospace" size="1">    Member3: string;</font></div><div><font face="monospace, monospace" size="1">    Member4: Extended;</font></div><div><font face="monospace, monospace" size="1">  end;</font></div><div><font face="monospace, monospace" size="1"><br></font></div><div><span style="font-family:monospace,monospace;font-size:x-small">var</span><br></div><div><font face="monospace, monospace" size="1">  F: PManagedField;</font></div><div><font face="monospace, monospace" size="1">  R: TTestRecord;</font></div><div><font face="monospace, monospace" size="1">  T, T2: PTypeData;</font></div><div><font face="monospace, monospace" size="1">  I: Integer;</font></div><div><font face="monospace, monospace" size="1">begin</font></div><div><font face="monospace, monospace" size="1">  R := Default(TTestRecord);</font></div><div><font face="monospace, monospace" size="1">  T := GetTypeData(TypeInfo(R));</font></div><div><font face="monospace, monospace" size="1">  F := PManagedField(PByte(@T^.TotalFieldCount) + 4);</font></div><div><font face="monospace, monospace" size="1">  T2 := GetTypeData(F^.TypeRef);</font></div><div><font face="monospace, monospace" size="1">  for I := 0 to Pred(T^.TotalFieldCount) do</font></div><div><font face="monospace, monospace" size="1">  begin</font></div><div><font face="monospace, monospace" size="1">    if F^.TypeRef^.Kind = tkFloat then</font></div><div><font face="monospace, monospace" size="1">      WriteLn(F^.TypeRef^.Kind, ':', T2^.FloatType);</font></div><div><font face="monospace, monospace" size="1">    Inc(F);</font></div><div><font face="monospace, monospace" size="1">  end;</font></div><div><font face="monospace, monospace" size="1">end.</font></div><div><br></div><div>it prints:</div><div><br></div><div><div><font face="monospace, monospace" size="1">tkFloat:ftCurr</font></div><div><font face="monospace, monospace" size="1">tkFloat:ftCurr</font></div></div><div><br></div><div>is there any chance to print it as below using <span style="font-family:monospace,monospace;font-size:x-small">FloatType</span>?:</div><div><font face="monospace, monospace" size="1"><br></font></div><div><div><font face="monospace, monospace" size="1">tkFloat:ftDouble</font></div><div><font face="monospace, monospace" size="1">tkFloat:ftExtended</font></div></div><div><br></div><div>I solved it temporally using the following workaround (removing the last four chars when the floating type is "Currency"):<br></div><div><br></div><div><font face="monospace, monospace" size="1">WriteLn(F^.TypeRef^.Kind, ':tk', F^.TypeRef^.Name);</font><br></div><div><br></div><div>but I really would like to get the ordinal item instead of its name, avoiding string handling.</div><div><br></div><div>Thank you!</div><div><br></div>--<br><div dir="ltr" class="gmail_signature"><div dir="ltr"><div>Silvio Clécio</div></div></div></div></div></div></div></div></div></div></div></div></div></div>