From d7d403525279f761e9e3bc81963d0f518eeaa49e Mon Sep 17 00:00:00 2001 From: michael Date: Sat, 15 Feb 2014 10:48:35 +0000 Subject: [PATCH] * Use factory for fielddefs git-svn-id: trunk@26784 - --- packages/fcl-db/src/sqldb/odbc/odbcconn.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/fcl-db/src/sqldb/odbc/odbcconn.pas b/packages/fcl-db/src/sqldb/odbc/odbcconn.pas index 2e81d06db0..07b27d09e1 100644 --- a/packages/fcl-db/src/sqldb/odbc/odbcconn.pas +++ b/packages/fcl-db/src/sqldb/odbc/odbcconn.pas @@ -1302,7 +1302,7 @@ begin end; // add FieldDef - with TFieldDef.Create(FieldDefs, FieldDefs.MakeNameUnique(ColName), FieldType, FieldSize, (Nullable=SQL_NO_NULLS) and (AutoIncAttr=SQL_FALSE), i) do + with FieldDefs.Add(FieldDefs.MakeNameUnique(ColName), FieldType, FieldSize, (Nullable=SQL_NO_NULLS) and (AutoIncAttr=SQL_FALSE), i) do begin if Updatable = SQL_ATTR_READONLY then Attributes := Attributes + [faReadonly]; end;