Problem when < 17 files in ZIP

[toonces]

I have a ZIP file that only contained one file, and when I executed this in my Delphi 5 program (with VCLZip version 3.05):

if not (VCLUnZip1.ExternalFileAttributes[faDirectory] = 1) then

I got an error message: "Index 16 is out of range".

I kept adding files to the ZIP file and retesting it. I kept getting the same message until I had 17 files in the ZIP.

Is this a bug?

[Kevin]

Sorry, this one slipped past me. :-(

You are using the ExternalFileAttributes property incorrectly. It is an indexed property, so you would want to use it something like

if (VCLUnZip1.ExternalFileAttributes[x] and faDirectory = 1) then

Does that make sense?

Thanks

Kevin

[toonces]

Kevin: Thanks. Duh! My bad. I'll fix my syntax. Not sure how I thought that existing syntax would work. mIKE