Поиск файлов

[---FISHER---]

Ищем любой файл/папку в папке заданной переменной в Dir
FindRes:=FindFirst(Dir+'*.*',faAnyF ile,SR);
если хоть один объект файловой системы нашёлся, то
проверим - если это директория и её имя точка или двоеточие - то ничего не делаем

(что такое точка или двоеточие, и соответственно почему мы ничего не делаем)

(переходим на поиск следующего элемента файловой системы)
Если это директория, тогда вызываем этот же алгорим поиска файлов в обнаруженной папке
(ЭТО И ЕСТЬ РЕКУРСИЯ - вызов процедуры из самой процедуры) - считайте, что просто вызвали свою процедуру,
только не в исходной директории Dir - а в найденной директории
(имя этой директории будет Dir + Sr.Name + '\' )...
Если же это не папка - то это файл. Его имя просто помещаем в список.
Полный путь к найденному файлу = Dir + Sr.Name

(Ну вот например нашли мы дерикторию, рекурсивно её просканировали, а если в ней ещё одна? а в ней ещё 50, я непонимаю как процедура потом возвратится например в предыдущую...или после 41 папки в 40...)

цикл повторяем, пока находятся объекты. Как только все объекты закончатся - мы выходим из процедуры.

[zotox]

Сообщение от ---FISHER---

(что такое точка или двоеточие, и соответственно почему мы ничего не делаем)

Точка - Метка перехода в каталог откуда программа вызывалась

Двое точие - Метка перехода на каталог выше

К примеру, C:\1\..\nash.exe получится как -> C:\nash.exe (хотя эти точки роли в поиске/выводе файлов не играют мне кажится)

[Пепел Феникса]

Ну вот например нашли мы дерикторию, рекурсивно её просканировали, а если в ней ещё одна?

или вы не понимаете что такое рекурсия либо пишите бред(пардон за прямоту)
рекурсия - это когда под-программа запускает (при опред условиях например) сама себя но уже с другими параметрами
рекурсия тут и помогает обследовать под-папки

я непонимаю как процедура потом возвратится например в предыдущую

если вам нужен самый точный ответ, то вперед к АСМу

а вообще, как обычно, передачей управления под-программе которая и вызвала функцию(под-программу)

[---FISHER---]

Пишу бред, потому что не понимаю рекурсии. Плоские мозги у меня видимо. Пора мне уже извиниться по-моему, за то что Вас всех мучаю этим наверняка элементарным вопросом...

[Пепел Феникса]

да как бы мы тут и помогаем разобратся
(за себя говорю...темы я очень-очень редко создаю терь)

так задавай вопросы, будем помогать(думаю не один я)

[---FISHER---]

Просто скажите я совсем заблуждаюсь или нет..

[Пепел Феникса]

ну почти)

приведу такой примерчик:
тут Start(папка) это запуск этой процедуры для опред папки
Finish(папка) это момент заканчивания этой процедуры(чтло началась ранее)
FindD(папка) нашли папку
FindF(файл) нашли файл, значит добавляем его в список
NotFind ничего не нашли...

иерархия файлов и папок:
C:
-папка1
--папка11
--файл11
-папка2
-файл1
end;(надеюсь понятно)

напишу в виде иерархии аналогичной и запуски/остановки процедуры:

Start(C:/)
FindD(папка1)
-Start(С:/папка1)
-FindD(папка11)
--Start(C:/папка1/папка11)
--NotFind
--Finish(C:/папка1/папка11)
-FindFile(файл11)
-NotFind
-Finish(С:/папка1)
-FindF(файл1)
NotFind
Finish(C:/)

примерн так
(тут я показал вызовы/завершения процедуры при рекурсии данного типа)

[---FISHER---]

Start(C:/)
FindD(папка1)
-Start(С:/папка1)
-FindD(папка11)
--Start(C:/папка1/папка11)
--NotFind
--Finish(C:/папка1/папка11)
-FindFile(файл11)
-NotFind
-Finish(С:/папка1)
-FindF(файл1)
NotFind
Finish(C:/)

а папку 'папка2' он не обраюатывает потому что она пустая чтоли?

иерархия файлов и папок:
C:
-папка1
--папка11
--файл11
-папка2
-файл1
end;(надеюсь понятно)

[Пепел Феникса]

Сообщение от ---FISHER---

а папку 'папка2' он не обраюатывает потому что она пустая чтоли?

ой
обрабатывает...просто я проворонил её...
вот исправил:

Start(C:/)
FindD(папка1)
-Start(С:/папка1)
-FindD(папка11)
--Start(C:/папка1/папка11)
--NotFind
--Finish(C:/папка1/папка11)
-FindFile(файл11)
-NotFind
-Finish(С:/папка1)
FindD(папка2)
-Start(C:/папка2)
-NotFind
-Finish(C:/папка2)
FindF(файл1)
NotFind
Finish(C:/)

прошу прощения...бывает

[---FISHER---]

Спасибо

Пепел Феникса

. Стало чуть яснее

И вот последний тёмный уголок:
Можно ли данный участок кода

if ((SR.Attr and faDirectory)=faDirectory) and 
         ((SR.Name='.')or(SR.Name='..')) then

записать просто так:

      if ((SR.Attr and faDirectory)=faDirectory) then

Извиняюсь за флуд.... Подскажите пожалуйста