Отладка программы в Delphi


Рекурсивный алгоритм поиска файлов



Рисунок 12.4. Рекурсивный алгоритм поиска файлов





Вид диалогового окна программы приведен на Рисунок 12.5, текст — в листинге 12.3.

Поле Файл (Edit1) используется для ввода имени искомого файла или маски (для поиска файлов одного типа). Имя каталога, в котором нужно выполнить поиск, можно ввести непосредственно в поле Папка или выбрать из стандартного диалогового окна Обзор папок, которое появляется в результате щелчка на кнопке Папка. Окно Обзор папок (Рисунок 12.6) выводит на экран стандартная функция Seiectoirectory. Следует обратить внимание, что имя каталога, который используется в диалоговом окне Обзор папок в качестве корневого, должно передаваться функции SeiectDirectory как Строка WhideChar. Для Преобразования обычной строки в строку WideChar использована функция StringToWhideChar.




- Начало -  - Назад -  - Вперед -