* Merging revisions r44373 from trunk:

    ------------------------------------------------------------------------
    r44373 | michael | 2020-03-27 07:28:20 +0100 (Fri, 27 Mar 2020) | 1 line
    
    * Remove debug statements
    ------------------------------------------------------------------------

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

packages/fcl-sound/src/fpwavreader.pas

@@ -95,10 +95,8 @@ begin
   Result := Result and (fStream.Read(fmt, sizeof(fmt)) = sizeof(fmt));
   LEtoN(fmt);
   Result := Result and (fmt.ChunkHeader.ID = AUDIO_CHUNK_ID_fmt);
-  if Result and (fmt.Format <> 1) then begin
-    writeln('WAVE file is using compression. Sorry, cannot load. Please provide uncompressed .wav');
+  if Result and (fmt.Format <> 1) then 
     Exit(False);
-  end;
 end;
 
 function Min(a, b: Integer): Integer;
@@ -116,7 +114,6 @@ var
   p: TByteArray absolute Buffer;
   i: Integer;
 begin
-  WriteLn('[TWavReader.ReadBuf] BufferSize = ', BufferSize);
   i := 0;
   while (not EoF) and (i < bufferSize) do begin
     if ChunkPos >= DataChunk.Size then begin

packages/fcl-sound/src/fpwavwriter.pas

@@ -137,7 +137,6 @@ function TWavWriter.WriteBuf(var Buffer; BufferSize: Integer): Integer;
 var
   sz: Integer;
 begin
-  WriteLn('[TWavWriter.WriteBuf] BufferSize = ', BufferSize);
   Result := 0;
   with fStream do begin
     sz := Write(Buffer, BufferSize);