Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Поиск файлов FindNext, FindFirst


Novice ©   (2007-05-03 07:54:00) 

При использовании функций для поиска файлов столкнулся с такой проблемой. Есть процедура ScanForFiles(Path : string), которая является методом некоторого класса. И вот в чем соль - если переменную MySearchRecord : TSearchRec объявить как локальную переменную процедуры ScanForFiles, тогда вся фукнция работает без проблем - сканирует каталоги любой степени вложенности и все такое. Но стоит переменную MySearchRecord : TSearchRec сделать полем класса в секции Private, как рекурсивный поиск отказывается работать - выглядит это следующим образом - поиск доходит до первого каталога, если в нем есть другие каталоги, то опять входит в первый каталог и так до конца, затем выходит обратно, и вся функция завершается, несмотря на наличие кучи других каталогов.
В чем может быть дело?


Novice   (2007-05-03 09:01:00) [1]

Ну, что полем класса эту переменную делать ненужно, это я уже понял.
А за объяснение

>>Она должна быть локальной переменной рекурсивной процедуры,
>>иначе поиск не может продолжиться после возврата из рекурсии.

очень благодарен.


MBo   (2007-05-03 08:28:00) [2]

Ну так не делай MySearchRecord полем класса!
Она должна быть локальной переменной рекурсивной процедуры, иначе поиск не может продолжиться после возврата из рекурсии.


Наверх

Титульная страница Поиск, карта сайта Написать письмо