浏览代码

- remove Writelns from JSONStringToString which were probably adding for debugging

git-svn-id: trunk@46411 -
svenbarth 5 年之前
父节点
当前提交
8ae16284f2
共有 1 个文件被更改,包括 0 次插入4 次删除
  1. 0 4
      packages/fcl-json/src/fpjson.pp

+ 0 - 4
packages/fcl-json/src/fpjson.pp

@@ -988,14 +988,10 @@ begin
                 if (U1<>0) then
                   begin
                   App:={$IFDEF FPC_HAS_CPSTRING}UTF8Encode({$ENDIF}WideChar(U1)+WideChar(U2){$IFDEF FPC_HAS_CPSTRING}){$ENDIF};
-                  writeln('app a:  ',L,': ',App);
                   U2:=0;
                   end
                 else
-                  begin
-                  writeln('app b: ',L,': ',WideChar(U2));
                   U1:=U2;
-                  end;
                 end;
         end;
         if App<>'' then