paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Map SQL_TEXT(char) fields to ftFixedChar fields

Browse Source 
git-svn-id: trunk@13407 -
This commit is contained in:
joost 2009-07-18 12:39:42 +00:00
parent a0f0e8d5d5
commit dfc5177bdc
1 changed files with 10 additions and 2 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

@ -447,7 +447,7 @@ begin
TrType := ftFMTBcd; TrType := ftFMTBcd;
end end
else case (SQLType and not 1) of else case (SQLType and not 1) of
SQL_VARYING,SQL_TEXT : SQL_VARYING :
begin begin
TrType := ftString; TrType := ftString;
if SQLLen > dsMaxStringSize then if SQLLen > dsMaxStringSize then
@ -455,6 +455,14 @@ begin
else else
TrLen := SQLLen; TrLen := SQLLen;
end; end;
SQL_TEXT :
begin
TrType := ftFixedChar;
if SQLLen > dsMaxStringSize then
TrLen := dsMaxStringSize
else
TrLen := SQLLen;
end;
SQL_TYPE_DATE : SQL_TYPE_DATE :
TrType := ftDate{Time}; TrType := ftDate{Time};
SQL_TYPE_TIME : SQL_TYPE_TIME :
@ -930,7 +938,7 @@ begin
end; end;
ftDate, ftTime, ftDateTime: ftDate, ftTime, ftDateTime:
GetDateTime(CurrBuff, Buffer, SQLDA^.SQLVar[x].SQLType); GetDateTime(CurrBuff, Buffer, SQLDA^.SQLVar[x].SQLType);
ftString : ftString, ftFixedChar :
begin begin
Move(CurrBuff^, Buffer^, VarCharLen); Move(CurrBuff^, Buffer^, VarCharLen);
PChar(Buffer + VarCharLen)^ := #0; PChar(Buffer + VarCharLen)^ := #0;