浏览代码

* 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}
 {$endif}
     Try
     Try
 {$ifdef dsdebug}
 {$ifdef dsdebug}
-      Writeln ('   Assigning buffers :',(Value)*SizeOf(TRecordBuffer));
+      Writeln ('   Assigning buffers : ',(Value)*SizeOf(TRecordBuffer));
 {$endif}
 {$endif}
       For I:=FBufferCount to Value do
       For I:=FBufferCount to Value do
         FBuffers[i]:=AllocRecordBuffer;
         FBuffers[i]:=AllocRecordBuffer;
 {$ifdef dsdebug}
 {$ifdef dsdebug}
-      Writeln ('   Assigned buffers ',FBufferCount,' :',(Value)*SizeOf(TRecordBuffer));
+      Writeln ('   Assigned buffers (FBufferCount:',FBufferCount,') : ',(Value)*SizeOf(TRecordBuffer));
 {$endif}
 {$endif}
     except
     except
       I:=FBufferCount;
       I:=FBufferCount;