Delphi Database, Delphi Components from ComponentAce

TZipForge.FindFirst
TZipForge Example

Top

Finds files stored within the archive.

function FindFirst(var F: TZFArchiveItem): Boolean; overload;
function FindFirst(
         FileMask:    String;
         var F:       TZFArchiveItem
         SearchAttr:    Word = faAnyFile;
         ExclusionMask: String = ''): Boolean; overload;

Description
Use FindFirst and FindNext to find files stored inside the open archive file. FindFirst return True if at least one file meets search conditions, otherwise it returns False. Use FindNext to find other files that meets search conditions.

After calling FindFirst F parameter will contain parameters of the first found file.

FindFirst variant with single parameter uses FileMasks, ExclusionMasks and Options.SearchAttr to specify search conditions and to exclude files from delete operation.

The FileMask parameter is the directory and file name mask, including wildcard characters. For example, 'TEST\*.*' specifies all files in the TEST directory stored within the archive file. First file that meets FileMask and SearchAttr will be found.

The SearchAttr parameter specifies the special files to include in addition to all normal files. This parameter is similar to the Attr parameter in FindFirst function from SysUtils unit. You can set it to any combination of faReadOnly, faHidden, faSysFile, faVolumeID, faDirectory, faArchive constants defined in SysUtils or value faAnyFile meaning that any file meets search condition.

The ExclusionMask specifies files to be excluded from delete operation.

Nov 24, 2024