| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перебор каталогов [D6, Win2k]
Leksiy © (2004-11-10 14:55:00)Господа вот столкнулся с проблемой нужно перебрать все каталоги в конкрено указанном каталоге ... да все каталоги подпадающие под определенную маску ... не разу такое не делал почитал мат часть ... ну с англиским не очень так что все что я смог навоять после этого это
MaskaPath := IncludeTrailingPathDelimiter FormStart.LabeledEditFilePath.Text) + '????_??';
ResSearchPath := FindFirst(MaskaPath, faDirectory, SearchRecPath);
while ResSearchPath = 0 do
begin
бла бла бла
end;
вобщем ничего не хочет перебирать ... кто знает где ошибка будьте добры скажите
Leksiy (2004-11-10 15:47:00) [1]так всем спасибо то что написано работает .. я так задумался над задачей что не проверил условие ... :) дурак забыл скопировать файды :)
Leksiy (2004-11-10 15:21:00) [2]а еще просмотрел исходники что то как то не понятно ... разве я не могу задать так как приведено в коде выше ?
[lamer]Barmaglot (2004-11-10 15:16:00) [3]?
перебирать надо все файлы, вне зависимости от того, что ты хочешь найти. А потом найденное сравнивать по атрибутам с директорией. Директории '.' '..' надо откинуть. Пример рекурсивного поиска был FAQ поищи или возьми компонент:
http://www.torry.net/vcl/filedrv/search/teasyfilesearch.zip
| |
