mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-23 07:59:44 +02:00
+ Added check for escaped quotes
git-svn-id: trunk@8300 -
This commit is contained in:
parent
69050435fc
commit
8e0c64979c
@ -936,6 +936,9 @@ begin
|
||||
inc(s);
|
||||
repeat
|
||||
inc(p);
|
||||
if p>Length(CmdLine) then Break;
|
||||
// check if we have an escape char
|
||||
if (CmdLine[p] = '\') and (CmdLine[p]<>PathDelim) then inc(p);
|
||||
until (p>Length(CmdLine)) or (CmdLine[p]=quote);
|
||||
// go past last character or quoted string
|
||||
l:=p-s;
|
||||
|
Loading…
Reference in New Issue
Block a user