paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-23 20:29:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also quote ftguid fields. Mantis 20219.

Browse Source 
git-svn-id: trunk@19060 -
This commit is contained in:
marco 2011-09-14 07:48:24 +00:00
parent 53d3d518fa
commit 1556751109
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-db/src/sqldb/sqldb.pp
View File

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