type display tweak

stijnsanders · Mar 9, 2017 · 4d46c0e · 4d46c0e
1 parent 4599429
commit 4d46c0e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/jsonV1.pas b/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;