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

* Fix+test bug #10345

Browse Source 
git-svn-id: trunk@10349 -
This commit is contained in:
joost 2008-02-17 20:52:16 +00:00
parent 141defd182
commit af564e4da5
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/base/dsparams.inc
View File

@ -296,7 +296,7 @@ begin
else
begin
ParamNameStart:=p;
while not (p^ in (SQLDelimiterCharacters+[#0,'=','+','-','*','\','/','[',']'])) do
while not (p^ in (SQLDelimiterCharacters+[#0,'=','+','-','*','\','/','[',']','|'])) do
Inc(p);
ParamName:=Copy(ParamNameStart,1,p-ParamNameStart);
end;

4
packages/fcl-db/tests/testbasics.pas
View File

@ -74,6 +74,10 @@ begin
AssertEquals( 'select * from table where id = ?',
params.ParseSQL('select * from table where id = :id',true,true,true,psInterbase));
// Test bug 10345
AssertEquals( 'select email from table where upper(email) like ''%''||?||''%''',
params.ParseSQL('select email from table where upper(email) like ''%''||:email||''%''',true,true,true,psInterbase));
// Test escape-sequences:
AssertEquals( 'select * from table where ''id '''' = :id''',
params.ParseSQL('select * from table where ''id '''' = :id''',true,False,True,psPostgreSQL));