From 9c5bfbeb780c296556b6317bdc517079c42e390a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Thu, 22 Feb 2024 14:41:51 +0100
Subject: [PATCH] * Return delphi-compatible output for TValue.ToString when
 empty

---
 packages/rtl-objpas/src/inc/rtti.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index 74bfdf2ca0..682f2a65c9 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -3984,6 +3984,8 @@ end;
 
 function TValue.ToString: String;
 begin
+  if IsEmpty then
+    Exit('(empty)');
   case Kind of
     tkWString,
     tkUString : result := AsUnicodeString;
@@ -4000,7 +4002,7 @@ begin
     tkChar: Result := AnsiChar(FData.FAsUByte);
     tkWChar: Result := UTF8Encode(WideChar(FData.FAsUWord));
   else
-    result := '';
+    result := '<unknown kind>';
   end;
 end;