Browse Source

* Remove debug statement, patch by Pascal Riekenberg (Bug ID 36585)

git-svn-id: trunk@43955 -
michael 5 years ago
parent
commit
887c5e81b2
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/fcl-report/src/fpreportjson.pp

+ 2 - 0
packages/fcl-report/src/fpreportjson.pp

@@ -190,7 +190,9 @@ begin
   else
   else
     AValue:=D.AsJSON;
     AValue:=D.AsJSON;
   end;
   end;
+  {$IFDEF gdebug}
   Writeln(FIndex,' : ',AFieldName,' -> ',AValue);
   Writeln(FIndex,' : ',AFieldName,' -> ',AValue);
+  {$ENDIF}
 end;
 end;
 
 
 procedure TFPReportJSONData.DoInitDataFields;
 procedure TFPReportJSONData.DoInitDataFields;