ソースを参照

* 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;