Issue #12: Fix TDBConnection.ApplyLimitClause for SQLite, which does not support a LIMIT clause in UPDATE/DELETE statements

source/dbconnection.pas

@@ -6090,7 +6090,7 @@ begin
         Result := Result + 'TOP '+IntToStr(Limit)+' ';
       Result := Result + QueryBody;
     end;
-    ngMySQL, ngSQLite: begin
+    ngMySQL: begin
       Result := Result + QueryBody + ' LIMIT ';
       if Offset > 0 then
         Result := Result + IntToStr(Offset) + ', ';
@@ -6104,6 +6104,17 @@ begin
       end else
         Result := Result + QueryBody;
     end;
+    ngSQLite: begin
+      // LIMIT supported only in SELECT queries
+      // For UPDATEs and DELETEs only if we would compile sqlite library with SQLITE_ENABLE_UPDATE_DELETE_LIMIT compile flag
+      Result := Result + QueryBody;
+      if Result.StartsWith('SELECT') then begin
+        Result := Result + ' LIMIT ';
+        if Offset > 0 then
+          Result := Result + IntToStr(Offset) + ', ';
+        Result := Result + IntToStr(Limit);
+      end;
+    end;
   end;
 end;