* extend TValue.ToString for a few more types

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@39889 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 1 deletions

diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index 53d5fd6381..b44055ef13 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -1949,9 +1949,13 @@ end;
 function TValue.ToString: String;
 begin
   case Kind of
+    tkWString,
+    tkUString : result := AsUnicodeString;
     tkSString,
-    tkAString : result := AsString;
+    tkAString : result := AsAnsiString;
     tkInteger : result := IntToStr(AsInteger);
+    tkQWord   : result := IntToStr(AsUInt64);
+    tkInt64   : result := IntToStr(AsInt64);
     tkBool    : result := BoolToStr(AsBoolean, True);
   else
     result := '';