Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.05;
Скачать: CL | DM;

Вниз

рекурсия   Найти похожие ветки 

 
bang   (2004-08-20 17:35) [0]

Ув. мастера, подскажите мне, незнающему, как сделать рекурсивный поиск файлов по маске в директории и найденные имена файлов добавить в список? Заранее спасибо и извините если некорректно задал вопрос.


 
Суслик ©   (2004-08-20 17:37) [1]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=1015254946&n=19


 
bang   (2004-08-20 19:08) [2]

Пример хороший, только если фильтр будет *.txt, например, никакой рекурсии не будет :(


 
bang   (2004-08-20 19:22) [3]

Нашел!!! Это то, что нужно!
http://www.torry.net/vcl/filedrv/search/teasyfilesearch.zip


 
Mim1 ©   (2004-08-20 19:34) [4]

program test;
{$APPTYPE CONSOLE}
uses sysutils, Masks;

procedure Q(startdir:string; mask:string);
var
SearchRec : TSearchRec;
begin
if FindFirst(StartDir+"\*.*", faAnyFile, SearchRec) = 0 then
begin
  repeat
    if (SearchRec.Attr and faDirectory) = faDirectory then
      begin
        if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then
          q(startdir+"\"+SearchRec.Name,mask);
      end
    else
      if MatchesMask(SearchRec.Name,mask) then
        writeln(StartDir +"\"+ SearchRec.Name);
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;
end;
begin
 q("d:\mp3","*.mp3");
end.



Страницы: 1 вся ветка

Текущий архив: 2004.09.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
6-1087730110
amoral
2004-06-20 15:15
2004.09.05
У кого есть примеры/доки по написаню Proxy,Firewall, и про NDIS


1-1093082083
Mox Fulder
2004-08-21 13:54
2004.09.05
Скрыть форму


14-1092605401
Baron
2004-08-16 01:30
2004.09.05
Фотоприколы


1-1092842718
Relaxxx
2004-08-18 19:25
2004.09.05
Зависит ли скорость экспорта в Excel c Delphi от версии оффиса


4-1090306483
TKV
2004-07-20 10:54
2004.09.05
Помогите поймать данные посылаемые из дос программы в порт LPT