Browse Source

* fcl-db: cosmetic: debug output

git-svn-id: trunk@27256 -
reiniero 11 years ago
parent
commit
e8de259b63
1 changed files with 2 additions and 2 deletions
  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;