mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: IsInPathList function

Browse source
This commit is contained in:
Alexander Koblov 2012-07-02 20:50:13 +00:00
commit de237a711d
1 changed files with 8 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/udcutils.pas
View file

@ -468,26 +468,16 @@ end;
function IsInPathList(sBasePathList: String; sPathToCheck: String;
ASeparator: AnsiChar = ';'): Boolean;
var
I: Integer;
J: Integer = 1;
sBasePath: String;
begin
sBasePathList:= UTF8UpperCase(sBasePathList);
sPathToCheck:= UTF8UpperCase(sPathToCheck);
for I:= 1 to Length(sBasePathList) do
begin
if sBasePathList[I] = ASeparator then
begin
sBasePath:= Copy(sBasePathList, J, I - J);
if IsInPath(sBasePath, sPathToCheck, True, True) then
Exit(True);
J:= I + 1;
end;
end;
if J > 1 then
Result:= False
else
Result := IsInPath(sBasePathList, sPathToCheck, True, True);
sBasePathList := UTF8UpperCase(sBasePathList);
sPathToCheck := UTF8UpperCase(sPathToCheck);
repeat
sBasePath := Copy2SymbDel(sBasePathList, ASeparator);
if IsInPath(sBasePath, sPathToCheck, True, True) then
Exit(True);
until Length(sBasePathList) = 0;
Result := False
end;
procedure ChangeFileListRoot(sNewRootPath: String; Files: TFiles);