eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Code cleanup

This commit is contained in:
mysticbbs 2013-02-22 20:46:48 -05:00
parent c244efdee8
commit 9aa572c41c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/aviewzip.pas
View File

@ -107,9 +107,13 @@ Begin
While Hdr.Signature = LocalSig Do Begin While Hdr.Signature = LocalSig Do Begin
Inc (tFile); Inc (tFile);
CurPos := FilePos(ArcFile) + Hdr.FNameLen + Hdr.ExtraField + Hdr.cSize; CurPos := FilePos(ArcFile) + Hdr.FNameLen + Hdr.ExtraField + Hdr.cSize;
Seek (ArcFile, CurPos); Seek (ArcFile, CurPos);
BlockRead (ArcFile, Hdr, SizeOf(Hdr), bRead); BlockRead (ArcFile, Hdr, SizeOf(Hdr), bRead);
If bRead <> SizeOf(Hdr) Then Exit; If bRead <> SizeOf(Hdr) Then Exit;
End; End;