paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 11:40:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazFileUtils: ResolveDots: respect AllowDirectorySeparators.

Browse Source 
git-svn-id: trunk@42700 -
This commit is contained in:
bart 2013-09-09 11:50:06 +00:00
parent 7bd5a7d326
commit 3afb18b37f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/lazfileutils.inc
View File

@ -24,7 +24,7 @@ begin
c:=AFilename[SrcPos];
{$ifdef windows}
//change / to \. The WinApi accepts both, but it leads to strange effects in other places
if (c='/') then c := PathDelim;
if (c in AllowDirectorySeparators) then c := PathDelim;
{$endif}
// check for double path delims
if (c=PathDelim) then begin
@ -131,7 +131,7 @@ begin
c:=AFilename[SrcPos];
{$ifdef windows}
//change / to \. The WinApi accepts both, but it leads to strange effects in other places
if (c='/') then c := PathDelim;
if (c in AllowDirectorySeparators) then c := PathDelim;
{$endif}
if c=PathDelim then break;
until false;