From a2569a6e6f086a86d25859b74c76f245f32d9478 Mon Sep 17 00:00:00 2001 From: joost Date: Thu, 13 Sep 2007 21:52:55 +0000 Subject: [PATCH] * Reverted wrongly comitted file in r8465 git-svn-id: trunk@8466 - --- packages/fcl-db/src/sqldb/interbase/ibconnection.pp | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) diff --git a/packages/fcl-db/src/sqldb/interbase/ibconnection.pp b/packages/fcl-db/src/sqldb/interbase/ibconnection.pp index 44e07213d8..ec3eb50e40 100644 --- a/packages/fcl-db/src/sqldb/interbase/ibconnection.pp +++ b/packages/fcl-db/src/sqldb/interbase/ibconnection.pp @@ -531,16 +531,6 @@ begin {$R-} for x := 0 to in_SQLDA^.SQLD - 1 do with in_SQLDA^.SQLVar[x] do begin - - if (AParams[ParamBinding[x]].DataType = ftString) and ( - ((SQLType and not 1) = SQL_LONG) - or ((SQLType and not 1) = SQL_DATE) - or ((SQLType and not 1) = SQL_TIMESTAMP) - or ((SQLType and not 1) = SQL_TYPE_DATE) - ) then - SQLType := SQL_VARYING; - - if ((SQLType and not 1) = SQL_VARYING) then SQLData := AllocMem(in_SQLDA^.SQLVar[x].SQLLen+2) else @@ -762,7 +752,7 @@ begin end; ftDate, ftTime, ftDateTime: SetDateTime(in_sqlda^.SQLvar[SQLVarNr].SQLData, AParams[ParNr].AsDateTime, in_SQLDA^.SQLVar[SQLVarNr].SQLType); - ftLargeInt, ftSmallint: + ftLargeInt: begin li := AParams[ParNr].AsLargeInt; Move(li, in_sqlda^.SQLvar[SQLVarNr].SQLData^, in_SQLDA^.SQLVar[SQLVarNr].SQLLen);