That's cool! Roger! Thank you! Best Regards, Edwin Yip Mind Mapping is as Effortless as Typing http://www.InnovationGear.com On Tue, Feb 24, 2009 at 10:35 PM, Roger Aelbrecht <Roger.Aelbrecht@xxxxxxxxx > wrote: > Edwin Yip wrote: > > thank you very much Roger. > > Implementing that in the event will cause the program logic to be > > unreadable... > > > > Best Regards, > > Edwin Yip > > > > Mind Mapping is as Effortless as Typing > > http://www.InnovationGear.com > > > > > > I overlooked one other access possibility > > If you know the filename use the Find method that will return a > ZipDirEntry pointer. > Use idx := -1 for first search, idx will contain the index of the > filename on return. > > function TCustomZipMaster.Find(const fspec: String; > var idx: Integer): pZipDirEntry; > > The ZipDirEntry points to a packed record that has a member > FileComment: String; > > -- > Roger Aelbrecht > > > ----------- > To unsubscribe from this list, send an empty e-mail > message to: > delphizip-request@xxxxxxxxxxxxx > and put the word unsubscribe in the subject. > ----------- To unsubscribe from this list, send an empty e-mail message to: delphizip-request@xxxxxxxxxxxxx and put the word unsubscribe in the subject.