* add ftfixedchar to escape clause of getsqltext, Mantis #19556 Patch by Lacak2.

git-svn-id: trunk@18990 -

packages/fcl-db/src/sqldb/mysql/mysqlconn.inc

@@ -328,7 +328,7 @@ var esc_str : pchar;
 
 begin
   if (not assigned(param)) or param.IsNull then Result := 'Null'
-  else if param.DataType in [ftString,ftBlob,ftMemo] then
+  else if param.DataType in [ftString,ftFixedChar,ftBlob,ftMemo] then
     Result := '''' + EscapeString(Param.AsString) + ''''
   else Result := inherited GetAsSqlText(Param);
 end;