Перебор каталогов

← →
Leksiy © (2004-11-10 14:55) [0]

Господа вот столкнулся с проблемой нужно перебрать все каталоги в конкрено указанном каталоге ... да все каталоги подпадающие под определенную маску ... не разу такое не делал почитал мат часть ... ну с англиским не очень так что все что я смог навоять после этого это

MaskaPath := IncludeTrailingPathDelimiter FormStart.LabeledEditFilePath.Text) + "????_??";
ResSearchPath := FindFirst(MaskaPath, faDirectory, SearchRecPath);
while ResSearchPath = 0 do
begin
бла бла бла
end;

вобщем ничего не хочет перебирать ... кто знает где ошибка будьте добры скажите

← →
[lamer]Barmaglot © (2004-11-10 15:16) [1]

?
перебирать надо все файлы, вне зависимости от того, что ты хочешь найти. А потом найденное сравнивать по атрибутам с директорией. Директории "." ".." надо откинуть. Пример рекурсивного поиска был FAQ поищи или возьми компонент:

http://www.torry.net/vcl/filedrv/search/teasyfilesearch.zip

← →
Leksiy © (2004-11-10 15:21) [2]

а еще просмотрел исходники что то как то не понятно ... разве я не могу задать так как приведено в коде выше ?

так всем спасибо то что написано работает .. я так задумался над задачей что не проверил условие ... :) дурак забыл скопировать файды :)

Перебор каталогов Найти похожие ветки