Răsfoiți Sursa

* Fix typo

git-svn-id: trunk@31159 -
michael 10 ani în urmă
părinte
comite
4cc83ba03f

+ 1 - 1
packages/fcl-db/src/sqldb/mssql/mssqlconn.pp

@@ -611,7 +611,7 @@ var c: TDBLibCursor;
 begin
   c:=cursor as TDBLibCursor;
 
-  if LogEvent(detParamValues) then
+  if LogEvent(detParamValue) then
     LogParams(AParams);
   cmd := c.ReplaceParams(AParams);
   if LogEvent(detActualSQL) then

+ 1 - 1
packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp

@@ -532,7 +532,7 @@ begin
   checkerror(sqlite3_reset(sc.fstatement));
   If (AParams<>Nil) and (AParams.count > 0) then
     SC.BindParams(AParams);
-  If LogEvent(detParamValues) then
+  If LogEvent(detParamValue) then
     LogParams(AParams);
   SC.Execute;
 end;