Explorar el Código

* Use factory for fielddefs

git-svn-id: trunk@26787 -
michael hace 11 años
padre
commit
4378063247
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  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;