paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 19:29:24 +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
Obj : TObject;
begin
if IsEmpty then
Exit('(empty)');
@ -4040,6 +4041,7 @@ begin
tkUString : result := AsUnicodeString;
tkSString,
tkAString : result := AsAnsiString;
tkFloat : Str(AsDouble:12:4,Result);
tkInteger : result := IntToStr(AsInteger);
tkQWord : result := IntToStr(AsUInt64);
tkInt64 : result := IntToStr(AsInt64);
@ -4059,7 +4061,7 @@ begin
Result:='<Nil>';
end
else
result := '<unknown kind>';
result := '<unknown kind: '+GetEnumName(System.TypeInfo(TTypeKind),Ord(Kind))+'>';
end;
end;