paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 12:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: ibconnection: cosmetic

Browse Source 
git-svn-id: trunk@28942 -
This commit is contained in:
reiniero 2014-10-28 08:35:47 +00:00
parent fb35830fc1
commit 727d73677a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -602,7 +602,7 @@ begin
TrLen := SQLLen;
end;
SQL_TYPE_DATE :
TrType := ftDate;
TrType := ftDate;
SQL_TYPE_TIME :
TrType := ftTime;
SQL_TIMESTAMP :
@ -615,9 +615,9 @@ begin
SQL_BLOB :
begin
if SQLSubType = isc_blob_text then
TrType := ftMemo
TrType := ftMemo
else
TrType := ftBlob;
TrType := ftBlob;
TrLen := SQLLen;
end;
SQL_SHORT :