Browse Source

- remove Writelns from JSONStringToString which were probably adding for debugging

git-svn-id: trunk@46411 -
svenbarth 5 years ago
parent
commit
8ae16284f2
1 changed files with 0 additions and 4 deletions
  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