Browse Source

fcl-db: cosmetic

git-svn-id: trunk@27259 -
reiniero 11 years ago
parent
commit
77d74614cb

+ 1 - 1
packages/fcl-db/src/base/dataset.inc

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

+ 2 - 2
packages/fcl-db/src/base/fields.inc

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

+ 1 - 1
packages/fcl-db/tests/database.ini.txt

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