Преглед изворни кода

* Fix for two columns with the same name

git-svn-id: trunk@12280 -
joost пре 17 година
родитељ
комит
c8467353ea
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp

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

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