<div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr">Oh, please ignore and sorry for noise. I found the solution as soon as I sent the e-mail. -.-<div><br></div><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">  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">    begin</font></div><div><font face="monospace, monospace" size="1">      T2 := GetTypeData(F^.TypeRef);</font></div><div><font face="monospace, monospace" size="1">      WriteLn(F^.TypeRef^.Kind, ':', T2^.FloatType);</font></div><div><font face="monospace, monospace" size="1">    end;</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>time to go to bed.<br></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>