From 61bce04d28d1f4ab264066cf83c5825580018e43 Mon Sep 17 00:00:00 2001
From: Henrique Gottardi Werlang <henriquewerlang@hotmail.com>
Date: Fri, 23 Feb 2024 07:35:19 -0300
Subject: [PATCH] More to string types.

---
 packages/rtl/src/rtti.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/packages/rtl/src/rtti.pas b/packages/rtl/src/rtti.pas
index cd33137..a267cc5 100644
--- a/packages/rtl/src/rtti.pas
+++ b/packages/rtl/src/rtti.pas
@@ -1134,11 +1134,13 @@ begin
     Exit('(empty)');
 
   case Kind of
-    tkString: Result := AsString;
-    tkInteger: Result := IntToStr(AsNativeInt);
     tkBool: Result := BoolToStr(AsBoolean, True);
     tkClass: Result := AsObject.ClassName;
     tkClassRef: Result := AsClass.ClassName;
+    tkEnumeration: Result := GetEnumName(TTypeInfoEnum(TypeInfo), AsOrdinal);
+    tkFloat: Result := FloatToStr(AsExtended);
+    tkInteger: Result := IntToStr(AsNativeInt);
+    tkString: Result := AsString;
   else
     Result := '';
   end;