* Set the first value of Auto Increment fields to 1 (same behavior as sqlite)

git-svn-id: trunk@12569 -

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

@@ -105,7 +105,7 @@ function GetAutoIncValue(NextValue: Pointer; Columns: Integer; ColumnValues: PPC
 var
   CodeError, TempInt: Integer;
 begin
-  TempInt := -1;
+  TempInt := 0;
   if ColumnValues[0] <> nil then
   begin
     Val(String(ColumnValues[0]), TempInt, CodeError);

packages/fcl-db/src/sqlite/sqliteds.pas

@@ -72,7 +72,7 @@ function GetAutoIncValue(NextValue: Pointer; Columns: Integer; ColumnValues: PPC
 var
   CodeError, TempInt: Integer;
 begin
-  TempInt := -1;
+  TempInt := 0;
   if ColumnValues[0] <> nil then
   begin
     Val(String(ColumnValues[0]), TempInt, CodeError);