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

Converter: Improve IsRootPath function. Issue #22630, patch from Bart Broersma

Browse Source 
git-svn-id: trunk@38290 -
This commit is contained in:
juha 2012-08-20 21:59:21 +00:00
parent 8297ee1f08
commit d50b5d1cd8
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
converter/convertdelphi.pas
View File

@ -401,13 +401,14 @@ procedure TCacheUnitsThread.Execute;
function IsRootPath(APath: String): Boolean;
//crude function, it maybe needs support for UNC drives
var
D: String;
Len: Integer;
begin
{$ifdef windows}
Result := ((Length(APath) = 3) and (APath[1] in ['a'..'z','A'..'Z']) and (APath[2] = ':') and (APath[3] = PathDelim))
or (APath = PathDelim);
{$else}
Result := (APath = PathDelim);
{$endif}
D := ExtractFileDrive(APath);
Len := Length(D);
System.Delete(APath, 1, Len);
Result := (Length(APath) = 1) and (APath[1] in AllowDirectorySeparators);
end;
begin