Поиск файлов в Delphi по маске

[aesoem]

Ситуация такая, код поиска всех файлов на ПК, он же теоретически и код поиска по маске....

procedure FindFile(Dir: String);
Var SR:TSearchRec;
    FindRes:Integer;
begin
form1.sstatusbar1.Panels[0].Text:='Поиск: '+Dir+SR.Name ;


FindRes:=FindFirst(Dir+'*.*',faAnyFile,SR);
While FindRes=0 do
begin
if ((SR.Attr and faDirectory)=faDirectory) and ((SR.Name='.')or(SR.Name='..')) then
begin
FindRes:=FindNext(SR);
Continue;
end;
if ((SR.Attr and faDirectory)=faDirectory) then // если найден каталог, то
begin
FindFile(Dir+SR.Name+'\'); // входим в процедуру поиска с параметрами текущего каталога + каталог, что мы нашли
FindRes:=FindNext(SR); // после осмотра вложенного каталога мы продолжаем поиск в этом каталоге
Continue; // продолжить цикл
end;
FindRes:=FindNext(SR);

with form1.sListView1.Items.Add do
begin
  caption:=sr.Name;
  subitems.Add(Dir+SR.Name);
end;

end;
FindClose(SR);
end;

Все работает хорошо, но если изменить маску поиска например на *.txt
и начальном каталоге поиска (пусть C:\) не будет хотя бы одного файла попадающего в критерии поиска то поиск прекращается в этой директории. Причем все примеры и исходники в сети работают так же...

Помогите исправить этот код, чтобы он начал искать в других папках если в первой нечего не найдено

[BARNEY]

может в поиске глянуть? )

procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var
   SearchRec: TSearchRec;
begin
   Dir := IncludeTrailingBackslash(Dir);
   if FindFirst(Dir + ‘*.*’, faAnyFile, SearchRec) = 0 then
     repeat
       Application.ProcessMessages;

       if (SearchRec.Attr and faDirectory) 0 then begin
         if (SearchRec.name ‘.’) and (SearchRec.name ‘..’) then
                 DirSearch(Dir + SearchRec.name, Mask, sl)
       end
       else
         if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
           Sl.Add(Dir + SearchRec.Name);
     until FindNext(SearchRec) 0;
   FindClose(SearchRec);
end;

// ИСПОЛЬЗОВАТЬ ТАК:
procedure TForm1.Button1Click(Sender: TObject);
begin
   DirSearch(’C:\TEMP’, ‘*.AVI’, Memo1.Lines);
end;

[Аватар]

Файлы искать по заданной маске, каталоги по маске *.*

[aesoem]

я находил этот код...
символы нужные в коде раставил\заменил но таким строкам как

 if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then

ума дать не могу... как это понять и что это вообще MatchesMask

аватар, это я понял, да вот не находит от по маске)
FindFirst разве не возвращает 0 когда на каталог натыкается?
Или каталог он не может найти из-за маски поиска

[Аватар]

uses Masks;

procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var
   SearchRec: TSearchRec;
begin
   Dir := IncludeTrailingBackslash(Dir);
   if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
     repeat
       Application.ProcessMessages;

       if (SearchRec.Attr and faDirectory)<>0 then begin
         if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
                 DirSearch(Dir + SearchRec.name, Mask, sl)
       end
       else
         if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
           Sl.Add(Dir + SearchRec.Name);
     until FindNext(SearchRec)<>0;
   FindClose(SearchRec);
end;

В примере код искорежен

[FaTaL]

Если версия Delphi не древняя, то лучше использовать TDirectory.GetFiles

[SLAUR]

пользуюсь этой процедурой,прекрасно работает

procedure SearchInDir(Mask, Dir: string; Subdir: Boolean; var List: tStringList);
var
  r: integer;
  f: TSearchRec;
begin
  if Dir = '' then Exit;
  if Dir[Length(Dir)] <> '\' then Dir := Dir + '\';
{$I-}
  ChDir(Dir);
{$I+}
  if IOResult <> 0 then Exit;
  r := FindFirst('*.*', faAnyFile, f);
  while r = 0 do
  begin
    IF ((f.Attr and faDirectory) <> faDirectory) THEN
    if (MatchesMask(f.Name, Mask))or(mask='*.*') then
      if (f.Name <> '.') and (f.Name <> '..') then
        List.Add(ExpandFileName(f.Name));
    if (f.Attr and faDirectory) = faDirectory then
      if SubDir = True then
      begin
        if (f.Name <> '.') and (f.Name <> '..') then
        begin
          SearchInDir(Mask, ExpandFileName(f.Name), SubDir, List);
          ChDir(Dir);
        end;
      end;
    r := FindNext(f);
  end;
  FindClose(f);
end;

Например SearchInDir('*.mp3','C:\' ,True , List1)
(параметр SubDir-искать ли в подкаталогах)
ps не забудьте создать перед использованием процедуры List1:=tStringList.Create;