Ver Fonte

* Use factory for fielddefs

git-svn-id: trunk@26787 -
michael há 11 anos atrás
pai
commit
4378063247
1 ficheiros alterados com 1 adições e 1 exclusões
  1. 1 1
      packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp

+ 1 - 1
packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp

@@ -492,7 +492,7 @@ begin
                end;
       ftUnknown : DatabaseError('Unknown record type: '+FN);
     end; // Case
-    tfielddef.create(fielddefs,FieldDefs.MakeNameUnique(FN),ft1,size1,false,i+1);
+    Fielddefs.Add(FieldDefs.MakeNameUnique(FN),ft1,size1,false,i+1);
     end;
 end;