' * Do not use a space as FieldNamesQuoteChar but an empty string, so that parameters are parsed correctly

git-svn-id: trunk@12640 -

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

@@ -1361,7 +1361,7 @@ end;
 
 Procedure TCustomSQLQuery.ApplyRecUpdate(UpdateKind : TUpdateKind);
 
-var FieldNamesQuoteChar : char;
+var FieldNamesQuoteChar : string;
 
   procedure InitialiseModifyQuery(var qry : TCustomSQLQuery; aSQL: String);
 
@@ -1458,7 +1458,7 @@ begin
   if sqQuoteFieldnames in TSQLConnection(DataBase).ConnOptions then
     FieldNamesQuoteChar := '"'
   else
-    FieldNamesQuoteChar := ' ';
+    FieldNamesQuoteChar := '';
 
   case UpdateKind of
     ukModify : begin