Răsfoiți Sursa

* use sametext instead of converting case

Michaël Van Canneyt 5 luni în urmă
părinte
comite
d789128ec5
1 a modificat fișierele cu 1 adăugiri și 2 ștergeri
  1. 1 2
      packages/fcl-db/src/sqlite/sqliteds.pas

+ 1 - 2
packages/fcl-db/src/sqlite/sqliteds.pas

@@ -148,8 +148,7 @@ begin
     ColumnStr := UpperCase(String(ColumnNames[i + ColumnCount]));
     if (ColumnStr = 'INTEGER') or (ColumnStr = 'INT') then
     begin
-      if AutoIncrementKey and
-           (UpperCase(String(ColumnNames[i])) = UpperCase(PrimaryKey)) then
+      if AutoIncrementKey and SameText(String(ColumnNames[i]),PrimaryKey) then
       begin
         AType := ftAutoInc;
         FAutoIncFieldNo := i;