paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use sametext instead of converting case

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-04-07 15:14:59 +02:00
parent e60cce05ee
commit 9cbc8f67f0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/sqlite/customsqliteds.pas
View File

@ -1851,7 +1851,7 @@ begin
DatabaseError('Field type "' + FieldTypeNames[FieldDefs[i].DataType] + DatabaseError('Field type "' + FieldTypeNames[FieldDefs[i].DataType] +
'" not supported', Self); '" not supported', Self);
end; end;
if UpperCase(FieldDefs[i].Name) = UpperCase(FPrimaryKey) then if SameText(FieldDefs[i].Name,FPrimaryKey) then
SQLTemp := SQLTemp + ' PRIMARY KEY'; SQLTemp := SQLTemp + ' PRIMARY KEY';
if i <> FieldDefs.Count - 1 then if i <> FieldDefs.Count - 1 then
SQLTemp := SQLTemp + ' , '; SQLTemp := SQLTemp + ' , ';