type display tweak

Author: stijnsanders

jsonV1.pas

@@ -330,7 +330,7 @@ procedure TJSONNode.ShowValue(xData: IJSONDocument; const xKey: WideString;
                   except
                     t:='?';
                   end;
-                  s:=s+' ('+IntToHex(vt,4)+') '+t;
+                  s:=s+' ('+VarTypeStr(vt)+') '+t;
                  end;
               end;
              end;