소스 검색

* remove forgotten writeln in base64 (* please merge me! *)

git-svn-id: trunk@7451 -
Almindor 18 년 전
부모
커밋
2b873af182
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      packages/fcl-base/src/inc/base64.pp

+ 1 - 1
packages/fcl-base/src/inc/base64.pp

@@ -239,7 +239,7 @@ begin
             Break;
         end;
       until count = 0;
-      writeln(Result);
+      // writeln(Result);
       // we are now either at the end of the stream, or encountered our first '=', stored in c
       if c = '=' then begin // '=' found
         if Result mod 4 <= 1 then // badly placed '=', disregard last block