paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use factory for fielddefs

Browse Source 
git-svn-id: trunk@26785 -
This commit is contained in:
michael 2014-02-15 10:48:45 +00:00
parent d7d4035252
commit 56280f3be9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -852,7 +852,7 @@ begin
TranslateFldType(SQLDA^.SQLVar[x].SQLType, SQLDA^.SQLVar[x].sqlsubtype, SQLDA^.SQLVar[x].SQLLen, SQLDA^.SQLVar[x].SQLScale, TranslateFldType(SQLDA^.SQLVar[x].SQLType, SQLDA^.SQLVar[x].sqlsubtype, SQLDA^.SQLVar[x].SQLLen, SQLDA^.SQLVar[x].SQLScale,
TransType, TransLen); TransType, TransLen);
FD := TFieldDef.Create(FieldDefs, FieldDefs.MakeNameUnique(SQLDA^.SQLVar[x].AliasName), TransType, FD := FieldDefs.Add(FieldDefs.MakeNameUnique(SQLDA^.SQLVar[x].AliasName), TransType,
TransLen, (SQLDA^.SQLVar[x].sqltype and 1)=0, (x + 1)); TransLen, (SQLDA^.SQLVar[x].sqltype and 1)=0, (x + 1));
if TransType in [ftBCD, ftFmtBCD] then if TransType in [ftBCD, ftFmtBCD] then
case (SQLDA^.SQLVar[x].sqltype and not 1) of case (SQLDA^.SQLVar[x].sqltype and not 1) of