* partial fix for Mantis #36358: apply partial, adjusted patch by Imants Gulbis to implement TValue.ToString for enumerations, AnsiChar and WideChar

git-svn-id: trunk@43778 -

packages/rtl-objpas/src/inc/rtti.pp

@@ -2010,6 +2010,9 @@ begin
     tkPointer : result := '(pointer @ ' + HexStr(FData.FAsPointer) + ')';
     tkInterface : result := '(interface @ ' + HexStr(PPointer(FData.FValueData.GetReferenceToRawData)^) + ')';
     tkInterfaceRaw : result := '(raw interface @ ' + HexStr(FData.FAsPointer) + ')';
+    tkEnumeration: Result := GetEnumName(TypeInfo, Integer(AsOrdinal));
+    tkChar: Result := AnsiChar(FData.FAsUByte);
+    tkWChar: Result := UTF8Encode(WideChar(FData.FAsUWord));
   else
     result := '';
   end;