Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];
Вниз
Перебор каталогов Найти похожие ветки
← →
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]а еще просмотрел исходники что то как то не понятно ... разве я не могу задать так как приведено в коде выше ?
← →
Leksiy © (2004-11-10 15:47) [3]так всем спасибо то что написано работает .. я так задумался над задачей что не проверил условие ... :) дурак забыл скопировать файды :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.033 c
