* Removed erroneously committed compacting code

git-svn-id: trunk@23669 -

packages/fcl-json/src/fpjson.pp

@@ -1311,7 +1311,7 @@ begin
     begin
     Result:=Result+Items[i].AsJSON;
     If (I<Count-1) then
-      Result:=Result+','
+      Result:=Result+', '
     end;
   Result:=Result+']';
 end;
@@ -1790,11 +1790,11 @@ begin
   For I:=0 to Count-1 do
     begin
     If (Result<>'') then
-      Result:=Result+',';
-    Result:=Result+'"'+StringToJSONString(Names[i])+'":'+Items[I].AsJSON;
+      Result:=Result+', ';
+    Result:=Result+'"'+StringToJSONString(Names[i])+'" : '+Items[I].AsJSON;
     end;
   If (Result<>'') then
-    Result:='{'+Result+'}'
+    Result:='{ '+Result+' }'
   else
     Result:='{}';
 end;