Explorar o código

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

git-svn-id: trunk@43955 -
michael %!s(int64=5) %!d(string=hai) anos
pai
achega
887c5e81b2
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      packages/fcl-report/src/fpreportjson.pp

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

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