paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-26 21:09:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

ExpandFileNameUtf8: expand current drive if FileName = '\' (Windows)

Browse Source 
git-svn-id: trunk@41035 -
This commit is contained in:
bart 2013-05-05 11:04:09 +00:00
parent 9c0da1b60e
commit fb55facdaa
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazutils/winlazfileutils.inc
View File

@ -50,9 +50,10 @@ begin
IsAbs := FileNameIsWinAbsolute(Fn);
if not IsAbs then
begin
StartsWithRoot := (Length(Fn) > 1) and
StartsWithRoot := (Fn = '\') or
((Length(Fn) > 1) and
(Fn[1] = DirectorySeparator) and
(Fn[2] <> DirectorySeparator);
(Fn[2] <> DirectorySeparator));
{$ifndef WinCE}
HasDrive := (Length(Fn) > 1) and
(Fn[2] = ':') and