瀏覽代碼

* Use factory for fielddefs

git-svn-id: trunk@26783 -
michael 11 年之前
父節點
當前提交
60056b260d
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-db/src/sqldb/oracle/oracleconnection.pp

+ 1 - 1
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp

@@ -860,7 +860,7 @@ begin
       setlength(Fieldname,OFNameLength);
       setlength(Fieldname,OFNameLength);
       move(OFieldName^,Fieldname[1],OFNameLength);
       move(OFieldName^,Fieldname[1],OFNameLength);
 
 
-      TFieldDef.Create(FieldDefs, FieldDefs.MakeNameUnique(FieldName), FieldType, FieldSize, False, counter);
+      FieldDefs.Add(FieldDefs.MakeNameUnique(FieldName), FieldType, FieldSize, False, counter);
       end;
       end;
   end;
   end;
 end;
 end;