paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 10:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Handle tkFloat in TValue.ToString

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-07-29 20:48:16 +02:00
parent 303c0378e9
commit 3e098316fd
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -4032,6 +4032,7 @@ function TValue.ToString: String;
var var
Obj : TObject; Obj : TObject;
begin begin
if IsEmpty then if IsEmpty then
Exit('(empty)'); Exit('(empty)');
@ -4040,6 +4041,7 @@ begin
tkUString : result := AsUnicodeString; tkUString : result := AsUnicodeString;
tkSString, tkSString,
tkAString : result := AsAnsiString; tkAString : result := AsAnsiString;
tkFloat : Str(AsDouble:12:4,Result);
tkInteger : result := IntToStr(AsInteger); tkInteger : result := IntToStr(AsInteger);
tkQWord : result := IntToStr(AsUInt64); tkQWord : result := IntToStr(AsUInt64);
tkInt64 : result := IntToStr(AsInt64); tkInt64 : result := IntToStr(AsInt64);
@ -4059,7 +4061,7 @@ begin
Result:='<Nil>'; Result:='<Nil>';
end end
else else
result := '<unknown kind>'; result := '<unknown kind: '+GetEnumName(System.TypeInfo(TTypeKind),Ord(Kind))+'>';
end; end;
end; end;