paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Temporary fix: enable double-quotation escaping for all databases.

Browse Source 
git-svn-id: trunk@6050 -
This commit is contained in:
joost 2007-01-18 14:17:05 +00:00
parent e79ab4462b
commit 5e4d291a87
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/db/dsparams.inc
View File

@ -280,7 +280,10 @@ begin
p:=PChar(SQL); p:=PChar(SQL);
BufStart:=p; // used to calculate ParamPart.Start values BufStart:=p; // used to calculate ParamPart.Start values
repeat repeat
SkipComments(p,ParameterStyle<>psPostgreSQL,ParameterStyle=psPostgreSQL); // This doesn't work, since ParseSQL passes psInterbase as default. This need
// some more advanced solution. Now temporary fix, to fix at least fpcbot...
// SkipComments(p,ParameterStyle<>psPostgreSQL,ParameterStyle=psPostgreSQL);
SkipComments(p,True,True);
case p^ of case p^ of
':','?': // parameter ':','?': // parameter
begin begin