paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 20:59:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: FileNameIsTrimmed: check for slashes on Windows

Browse Source 
git-svn-id: trunk@42704 -
This commit is contained in:
mattias 2013-09-09 13:44:08 +00:00
parent 084093d91e
commit 3c92d686f3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/lazfileutils.pas
View File

@ -528,6 +528,10 @@ begin
inc(i);
if i=NameLen then break;
{$IFDEF Windows}
if StartPos[i]='/' then exit;
{$ENDIF}
// check for double path delimiter
if (StartPos[i] in AllowDirectorySeparators) then exit;