Procházet zdrojové kódy

* Remove debug writeln

git-svn-id: trunk@48979 -
michael před 4 roky
rodič
revize
ffa69353f3
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      packages/fcl-json/tests/testjsonrtti.pp

+ 1 - 1
packages/fcl-json/tests/testjsonrtti.pp

@@ -767,7 +767,7 @@ begin
   AssertNotNull('Result of streaming available',FSR);
   AssertNotNull('Result of streaming available',FSR);
   If FToFree is TComponent then
   If FToFree is TComponent then
     ACount:=ACount+2; // Tag + Name
     ACount:=ACount+2; // Tag + Name
-  Writeln(FSR.ASJSON);
+  // Writeln(FSR.ASJSON);
   AssertEquals('Property count correct',ACount,FSR.Count);
   AssertEquals('Property count correct',ACount,FSR.Count);
 end;
 end;