mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0001269] "Access violation when trying to open certain zip file"

Browse source
This commit is contained in:
Alexander Koblov 2016-01-08 13:33:15 +00:00
commit ee49ea17c0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/filesources/wcxarchive/uwcxarchivefilesource.pas
View file

@ -659,7 +659,7 @@ begin
// And not set directory attribute. So delete path
// delimiter if present and add directory attribute.
NameLength := Length(Header.FileName);
if (Header.FileName[NameLength] = PathDelim) then
if (NameLength > 0) and (Header.FileName[NameLength] = PathDelim) then
begin
Delete(Header.FileName, NameLength, 1);
Header.FileAttr := Header.FileAttr or faFolder;