Delphi. Поисковик файлов. Рекурсия. DirectoryListBox.

[Mr_freeman]

Всем привет. Третий день сижу над лабораторкой по графам. Нужно написать поисковик файлов в выбранной директории и во всех вложенных папках. Желательно сделать это рекурсией.
Я сколько не пытался, почему то при обходе папок возникает ошибка, точнее не хочет возвращаться на предыдущие уровни.
Я не буду кидать исходники свои, так как они все равно все кривые=(
Помогите пожалуйста ребят, буду очень очень благодарен.
(Нельзя использовать дополнительные функции для поиска; процедура должна просто выводить имена всех файлов, которые соответствуют маске в файлистбоксе; я использовал для параметра процедуры строку - директорию, думаю так удобнее).

[Stilet]

http://www.programmersforum.ru/showt...ighlight=finda

[Serge_Bliznykov]

ну тогда и я свой пример выложу.
смотрите ТУТ


Основа алгоритма та же самая - FindFirst/FindNext + MatchesMask + рекурсивная функция

[Mr_freeman]

Сообщение от Mr_freeman

(Нельзя использовать дополнительные функции для поиска;

FindFirst - тоже сюда относится..

[Mr_freeman]

Важно использовать DirectoryListBox.
Рекурсия должна менять ИтемИндексы, чтоб обойти все вложенные каталоги..

[Serge_Bliznykov]

[QUOTE

](Нельзя использовать дополнительные функции для поиска;

FindFirst - тоже сюда относится..[/QUOTE]
угу, а ещё нельзя использовать целые числа, строки и массивы...
Нет уж, увольте, я в этом "забеге в мешках" участия не принимаю...