* Applied patch from bug 16493

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16775 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 4 insertions, 0 deletions

diff --git a/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp b/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
index 48e4d63fd9..2f0de1da2f 100644
--- a/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
+++ b/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
@@ -722,6 +722,7 @@ var
 
 begin
   PKFields:=TStringList.Create;
+  PKFields.Delimiter:=';';
   IXFields:=TStringList.Create;
   IXFields.Delimiter:=';';
 
@@ -751,6 +752,9 @@ begin
     IndexDefs.Add(IndexName, IXFields.DelimitedText, IndexOptions);
     end;
 
+  if PKFields.Count > 0 then //in special case for INTEGER PRIMARY KEY column, unique index is not created
+    IndexDefs.Add('$PRIMARY_KEY$', PKFields.DelimitedText, [ixPrimary,ixUnique]);
+
   PKFields.Free;
   IXFields.Free;
 end;