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

Browse Source 
git-svn-id: trunk@27259 -
This commit is contained in:
reiniero 2014-03-24 12:24:39 +00:00
parent f005a65ce4
commit 77d74614cb
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1207,7 +1207,7 @@ begin
inc(FBufferCount); // Cause FBuffers[FBufferCount] is already allocated inc(FBufferCount); // Cause FBuffers[FBufferCount] is already allocated
FillChar(FBuffers[FBufferCount],(Value+1-FBufferCount)*SizeOf(TRecordBuffer),#0); FillChar(FBuffers[FBufferCount],(Value+1-FBufferCount)*SizeOf(TRecordBuffer),#0);
{$ifdef dsdebug} {$ifdef dsdebug}
Writeln (' Filled memory :'); Writeln (' Filled memory');
{$endif} {$endif}
Try Try
{$ifdef dsdebug} {$ifdef dsdebug}

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

@ -100,10 +100,10 @@ begin
Result.SetFieldType(DataType); Result.SetFieldType(DataType);
Result.FReadOnly:= (faReadOnly in Attributes); Result.FReadOnly:= (faReadOnly in Attributes);
{$ifdef dsdebug} {$ifdef dsdebug}
Writeln ('TFieldDef.CReateField : Trying to set dataset'); Writeln ('TFieldDef.CreateField : Trying to set dataset');
{$endif dsdebug} {$endif dsdebug}
{$ifdef dsdebug} {$ifdef dsdebug}
Writeln ('TFieldDef.CReateField : Result Fieldno : ',Result.FieldNo,' Self : ',FieldNo); Writeln ('TFieldDef.CreateField : Result Fieldno : ',Result.FieldNo,' Self : ',FieldNo);
{$endif dsdebug} {$endif dsdebug}
Result.Dataset:=TFieldDefs(Collection).Dataset; Result.Dataset:=TFieldDefs(Collection).Dataset;
If (Result is TFloatField) then If (Result is TFloatField) then

2
packages/fcl-db/tests/database.ini.txt
View File

@ -36,7 +36,7 @@ password=masterkey
hostname=localhost hostname=localhost
; SQL command log file (for sqldb databases) ; SQL command log file (for sqldb databases)
; will be overwritten each run ; will be appended to each run
; uncomment to use ; uncomment to use
;logfile=sql.log ;logfile=sql.log