16.37.1. Класс TFileSearch
Для организации поиска файлов и папок на диске в скриптовом языке предусмотрен класс TFileSearch, реализующий всю необходимую для поиска функциональность. Следует заметить, что для простых случаев поиска файлов по маске можно применять функцию SearchFiles
Методы:
constructor Create(AOwner: TComponent);
Создает экземпляр класса. Единственный параметр AOwner задает владельца в данном случае не имеет смысла и должен быть равен nil. Экземпляр класса должен быть создан перед его использованием, в противном случае возникнет исключение
destructor Free;
Разрушает экземпляр класса, освобождает все занятые им ресурсы.
function FindFirst(AFileMask : string) : boolean;
Поиск первого файла или папки, удовлетворяющего условию поиска. Возвращает TRUE, если первый подходящий объект успешной найден. AFileMask задает маску поиска файлов, например "*.*". В маске допустимо указывать макросы, подробнее см. в разделе "макросы, допустимые в именах файлов"
function FindNext : boolean;
Поиск очередного файла или папки, удовлетворяющего условию поиска. Возвращает TRUE, если очередной подходящий объект успешной найден. Результат последней операции поиска можно так-же получить при помощи свойства Found
function FindClose : boolean;
Завершает поиск, освобождает занятые для поиска ресурсы, но не разрушает экземпляр класса. FindClose автоматически вызывается при вызове FindFirst и Free
Свойства:
property Found : boolean;
Результат последней операции FindFirst или FindNext. Наличие этого свойства упрощает организацию цикла поиска
property ISDir : boolean;
Возвращает TRUE, если текущий найденный объект является каталогом и false, если это файл
property FileName : string;
Возвращает имя файла текущего найденного объекта (важно отметить - только имя, без пути !!)
property FileAttr : byte;
property FileTime : TDateTime;
Возвращает дату и время создания последнего найденного объекта
property FileLastWriteTime : TDateTime;
Возвращает дату и время последней модификации последнего найденного объекта (поддерживается начиная с AVZ 4.29 и KIS 2013)
property FileLastAccessTime : TDateTime;
Возвращает дату и время последнего доступа последнего найденного объекта (поддерживается начиная с AVZ 4.29 и KIS 2013)