TZlibFilesList

type TZlibFilesList = class(TObject)

  FFileList: TList;

  FPathList: TList;

  FFileInfoList: TList;

public

  constructor Create;

  destructor Destroy; override;

  function Add();

Add a File to be compressed

  function AddPath();

Adds a FileName and a relative path

  function Insert();

Used to insert a file to be compressed into the list at a specific index

  function InsertPath();

  procedure Delete();

Deletes the filename at index from the list

  procedure Clear;

Removes all files from the list of files to be compressed

  function Count;

Number of files in the list to be compressed

  property FileName: String; [rw]

Used to retrieve the fully qualified filename that is to be compressed

  property Path: String; [rw]

Used to retrieve the releative path the file should be extracted to

  property FileInfo: TFileInfo; [rw]

Used internally to obtain the compressed size of the file

end;

TZlibFilesList

Used to strore the list of files to be compressed

TObject