paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 07:28:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Reverted wrongly comitted file in r8465

Browse Source 
git-svn-id: trunk@8466 -
This commit is contained in:
joost 2007-09-13 21:52:55 +00:00
parent ad389a9b3a
commit a2569a6e6f
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-db/src/sqldb/interbase/ibconnection.pp
View File

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