* also quote ftguid fields. Mantis 20219.

git-svn-id: trunk@19060 -

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

@@ -716,6 +716,7 @@ function TSQLConnection.GetAsSQLText(Param: TParam) : string;
 begin
   if (not assigned(param)) or param.IsNull then Result := 'Null'
   else case param.DataType of
+    ftGuid,
     ftMemo,
     ftFixedChar,
     ftString   : Result := QuotedStr(Param.AsString);