* Merging revisions 43023 from trunk:

    ------------------------------------------------------------------------
    r43023 | michael | 2019-09-17 09:14:28 +0200 (Tue, 17 Sep 2019) | 1 line
    
    * Remove debug statement
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43239 -

packages/fcl-db/src/base/fields.inc

@@ -497,7 +497,7 @@ end;
 function TField.GetAsBytes: TBytes;
 begin
   Result:=Default(TBytes);
-  Writeln('Allocating ',Datasize,' bytes');
+//  Writeln('Allocating ',Datasize,' bytes');
   SetLength(Result, DataSize);
   if assigned(result) and not GetData(@Result[0], False) then
     Result := nil;