Oh, please ignore and sorry for noise. I found the solution as soon as I
sent the e-mail. -.-
var
F: PManagedField;
R: TTestRecord;
T, T2: PTypeData;
I: Integer;
begin
R := Default(TTestRecord);
T := GetTypeData(TypeInfo(R));
F := PManagedField(PByte(@T^.TotalFieldCount) + 4);
for I := 0 to Pred(T^.TotalFieldCount) do
begin
if F^.TypeRef^.Kind = tkFloat then
begin
T2 := GetTypeData(F^.TypeRef);
WriteLn(F^.TypeRef^.Kind, ':', T2^.FloatType);
end;
Inc(F);
end;
end;
time to go to bed.
--
Silvio Clécio
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
