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

fcl-db: sqldb: add support for backtick "`" as identifier delimiter.

Browse Source 
git-svn-id: trunk@26152 -
This commit is contained in:
lacak 2013-11-28 13:23:46 +00:00
parent d72478eb64
commit b6005af745
2 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -192,16 +192,12 @@ end;
function SkipComments(var p: PChar; EscapeSlash, EscapeRepeat : Boolean) : Boolean;
begin
result := false;
Result := False;
case p^ of
'''':
'''', '"', '`':
begin
SkipQuotesString(p,'''',EscapeSlash,EscapeRepeat); // single quote delimited string
Result := True;
end;
'"':
begin
SkipQuotesString(p,'"',EscapeSlash,EscapeRepeat); // double quote delimited string
// single quote, double quote or backtick delimited string
SkipQuotesString(p, p^, EscapeSlash, EscapeRepeat);
Result := True;
end;
'-': // possible start of -- comment

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

@ -1747,7 +1747,7 @@ begin
until (CurrentP^ = #0) or (BracketCount = 0);
if CurrentP^ <> #0 then inc(CurrentP);
end;
'"':
'"','`':
if SkipComments(CurrentP, sqEscapeSlash in ConnOptions, sqEscapeRepeat in ConnOptions) then
Separator := sepDoubleQuote;
else