Преглед на файлове

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;
   L: Integer;
 begin
 begin
   L:= Length(Path);
   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)
     Result:= Copy(Path, 1, L - 1)
   else
   else
     Result:= Path;
     Result:= Path;