+ Added check for escaped quotes

git-svn-id: trunk@8300 -
This commit is contained in:
marc 2005-12-13 00:54:36 +00:00
parent 69050435fc
commit 8e0c64979c

View File

@ -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;