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

8
mystic/aviewzip.pas
View File

@ -52,8 +52,8 @@ Type
Procedure FindNext (Var SR : ArcSearchRec); Virtual; Procedure FindNext (Var SR : ArcSearchRec); Virtual;
Private Private
Hdr : ZFLocalHeader; Hdr : ZFLocalHeader;
cHdr : ZFCentralHeader; cHdr : ZFCentralHeader;
cFile : Word; cFile : Word;
tFile : Word; tFile : Word;
Procedure GetHeader (Var SR : ArcSearchRec); Procedure GetHeader (Var SR : ArcSearchRec);
@ -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;