paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 20:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: cosmetic: debug output

Browse Source 
git-svn-id: trunk@27256 -
This commit is contained in:
reiniero 2014-03-24 09:40:12 +00:00
parent d9ba17b147
commit e8de259b63
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/base/dataset.inc
View File

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