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: the '..' issue in TFile.SplitIntoNameAndExtension()

Browse source
This commit is contained in:
rich2014 2026-06-06 16:32:34 +08:00
commit d843b84a80
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/ufile.pas
View file

@ -856,7 +856,8 @@ begin
I := Length(FileName);
while (I > 0) and (FileName[I] <> ExtensionSeparator) do
Dec(I);
if I > 1 then
if (I>1) and (FileName<>'.') and (FileName<>'..') then
begin
aFileNameOnly := Copy(FileName, 1, I - 1);
aExtension := Copy(FileName, I + 1, MaxInt);