소스 검색

* fcl-db: cosmetic: debug output

git-svn-id: trunk@27256 -
reiniero 11 년 전
부모
커밋
e8de259b63
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      packages/fcl-db/src/base/dataset.inc

+ 2 - 2
packages/fcl-db/src/base/dataset.inc

@@ -1211,12 +1211,12 @@ begin
 {$endif}
     Try
 {$ifdef dsdebug}
-      Writeln ('   Assigning buffers :',(Value)*SizeOf(TRecordBuffer));
+      Writeln ('   Assigning buffers : ',(Value)*SizeOf(TRecordBuffer));
 {$endif}
       For I:=FBufferCount to Value do
         FBuffers[i]:=AllocRecordBuffer;
 {$ifdef dsdebug}
-      Writeln ('   Assigned buffers ',FBufferCount,' :',(Value)*SizeOf(TRecordBuffer));
+      Writeln ('   Assigned buffers (FBufferCount:',FBufferCount,') : ',(Value)*SizeOf(TRecordBuffer));
 {$endif}
     except
       I:=FBufferCount;