Преглед на файлове

* use sametext instead of converting case

Michaël Van Canneyt преди 5 месеца
родител
ревизия
e60cce05ee
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      packages/fcl-db/src/sqlite/sqlite3ds.pas

+ 1 - 1
packages/fcl-db/src/sqlite/sqlite3ds.pas

@@ -188,7 +188,7 @@ begin
     ColumnStr := UpperCase(String(sqlite3_column_decltype(vm, i)));
     if (ColumnStr = 'INTEGER') or (ColumnStr = 'INT') then
     begin
-      if AutoIncrementKey and (UpperCase(String(sqlite3_column_name(vm, i))) = UpperCase(PrimaryKey)) then
+      if AutoIncrementKey and SameText(String(sqlite3_column_name(vm, i)),PrimaryKey) then
       begin
         AType := ftAutoInc;
         FAutoIncFieldNo := i;