소스 검색

* Removed erroneously committed compacting code

git-svn-id: trunk@23669 -
michael 12 년 전
부모
커밋
b32e74c94c
1개의 변경된 파일4개의 추가작업 그리고 4개의 파일을 삭제
  1. 4 4
      packages/fcl-json/src/fpjson.pp

+ 4 - 4
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;