* Fixed parameters if a query is executed for the second time

 * Truncate stringfields at dsMaxStringSize

git-svn-id: trunk@9091 -

packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp

@@ -363,6 +363,7 @@ begin
                   System.Delete(FD,1,fi);
                   fi:=pos(')',FD);
                   size1:=StrToIntDef(trim(copy(FD,1,fi-1)),255);
+                  if size1 > dsMaxStringSize then size1 := dsMaxStringSize;
                   end
                 else size1 := 255;
                 end;
@@ -388,7 +389,7 @@ var
             
 begin
   SC:=TSQLite3Cursor(cursor);
-  If (AParams<>Nil) then
+  If (AParams<>Nil) and (AParams.count > 0) then
     SC.BindParams(AParams);
   SC.Execute;    
 end;

packages/fcl-db/tests/testsqlfieldtypes.pas

@@ -27,10 +27,10 @@ type
     procedure RunTest; override;
   published
     procedure TestInsertLargeStrFields; // bug 9600
+    procedure Test11Params;
     procedure TestRowsAffected; // bug 9758
     procedure TestStringsReplace;
     procedure TestCircularParams;
-    procedure Test11Params;
     procedure TestBug9744;
     procedure TestCrossStringDateParam;
     procedure TestGetFieldNames;