Класс 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;

Возвращает дату и время создания последнего найденного объекта