Hi Roger, It seems that the Find method is not published in TZipMaster, of course this is a tiny problem that can be solved by changing the source code, never mind. My question is, can I set ZipDirEntry.FileComment to something and save it back to the zip archive? 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.