From 196d8cee3da2a6f30929caac08784e7c2d91bf6a Mon Sep 17 00:00:00 2001 From: michael Date: Sat, 15 Feb 2014 10:48:52 +0000 Subject: [PATCH] * Use factory for fielddefs git-svn-id: trunk@26786 - --- packages/fcl-db/src/sqldb/mssql/mssqlconn.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/fcl-db/src/sqldb/mssql/mssqlconn.pp b/packages/fcl-db/src/sqldb/mssql/mssqlconn.pp index 3a1bd703dc..ac06cbe982 100644 --- a/packages/fcl-db/src/sqldb/mssql/mssqlconn.pp +++ b/packages/fcl-db/src/sqldb/mssql/mssqlconn.pp @@ -701,7 +701,7 @@ begin FieldType := ftAutoInc; end; - with TFieldDef.Create(FieldDefs, FieldDefs.MakeNameUnique(FieldName), FieldType, FieldSize, (col.Null=0) and (not col.Identity), i) do + with FieldDefs.Add(FieldDefs.MakeNameUnique(FieldName), FieldType, FieldSize, (col.Null=0) and (not col.Identity), i) do begin // identity, timestamp and calculated column are not updatable if col.Updatable = 0 then Attributes := Attributes + [faReadonly];