Explorar o código

* fcl-db: cosmetic: debug output

git-svn-id: trunk@27256 -
reiniero %!s(int64=11) %!d(string=hai) anos
pai
achega
e8de259b63
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  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;