浏览代码

FIX: ExcludeBackPathDelimiter with drive root

Alexander Koblov 3 年之前
父节点
当前提交
ff2732ac56
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      components/doublecmd/dcstrutils.pas

+ 1 - 1
components/doublecmd/dcstrutils.pas

@@ -773,7 +773,7 @@ var
   L: Integer;
 begin
   L:= Length(Path);
-  if (L > 1) and (Path[L] in AllowDirectorySeparators) then
+  if (L > 1) and (Path[L] in AllowDirectorySeparators) and (Path[L - 1] <> DriveSeparator) then
     Result:= Copy(Path, 1, L - 1)
   else
     Result:= Path;