Назначение данного модуля — заменить функции FindFirst..FindNext более удобным циклом for..in. Кроме того реализован рекурсивный поиск в поддиректориях.

Подсоединив модуль к проекту, можно осуществлять поиск файлов таким образом:


Класс TFileInfo заменяет заполнение структуры TSearchRec, как это делают FindFirst/FindNext, что должно дать прирост в производительности. Нужные свойства извлекаются из _WIN32_FIND_DATA напрямую при непосредственном запросе к нужному свойству. Свойства предоставляются аналогичные имеющимся в TSearchRec:


Также модуль содержит константы для всех типов файлов, существующих в современных версиях Windows.

Это сообщение отредактировал(а) s-mike - 28.10.2007, 01:07

Присоединённый файл ( Кол-во скачиваний: 76 )
 FileEnum.zip 3,17 Kb

Желателен, прямо здесь простенький пример с тегом code поясняющий вашу задумку;)

Пример находится после слов "Подсоединив модуль к проекту, можно осуществлять поиск файлов таким образом:" ;) Да и в самом модуле есть пример.

То есть простой цикл for..in (появившийся в Delphi 2006) по заданным в одной из функций (SearchFiles или SearchFilesRecursive) условиям. Цикл возвращает указатель на класс TFileInfo, из которого можно получить любые данные о файле.

В принципе пользоваться этим модулем можно и в более ранних версиях Delphi, но не так удобно, поскольку придется вызывать дополнительные методы.

  Грамотный подход. Пожалуй я бы включил такой модуль как один из базовых в VCL!