Ищем файлы

[VenMaster]

Есть код:
procedure ffind(cat:string); //каталог, откуда начать поиск
var sea:TSearchRec;
res:integer; //результат поиска (0 или нет)
begin
Application.ProcessMessages;
res:=FindFirst(cat+'*.*',faAnyFile, sea); //ищем первый файл
res:=findNext(sea);//ищем следующий файл
While res=0 do
begin
if (Sea.Attr=faDirectory) and ((Sea.Name='.')or(Sea.Name='..')) then//чтобы не было файлов . и..
begin
Res:=FindNext(sea);
Continue;//продолжаем цикл
end;

if (Sea.Attr=faDirectory) then//если нашли директорию, то ищем файлы в ней
begin
Ffind(cat+Sea.Name+'\');//рекурсивно вызываем нашу процедуру
Res:=FindNext(Sea);//ищем след. файл
Continue;//продолжаем цикл
end;
form1.ListBox1.Items.Add(Sea.Name);//добавляем в Listbox:Tlistbox имя файла
Res:=FindNext(Sea);//ищем след. файл
end;
FindClose(Sea);//освобождаем пересенную поиска
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Ffind(edit1.Text) ;
end;

как мне подправить его чтоб он искал файлы с определенным расширением??
Изменяю строку
res:=FindFirst(cat+'*.*',faAnyFile, sea); на
res:=FindFirst(cat+'*.txt',faAnyFil e,sea);
ищет только один фаил и на этом поиск прекращается

[Dj_smart]

Procedure go;
Var SR:TSearchRec;
FindRes:Integer;
begin
  with form1 do begin
    ListBox1.Clear;
    FindRes:=FindFirst('c:/maps *.map',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;
      ListBox1.Items.Add(SR.Name);
      FindRes:=FindNext(SR);
      end;
    FindClose(SR);
  end;
end;

[VenMaster]

Чето токо у меня теперь не заходит в папки

[knight]

 if ((SR.Attr and faDirectory)=faDirectory) and // если найденный элемент каталог и  
     ((SR.Name='.')or(SR.Name='..')) then // он имеет название "." или "..", тогда:

Эту проверку убери, тогда появятся директории....

[VenMaster]

('c:\ *.txt',faAnyFile,SR); // через пробел путь и маска
Точно ни че не путаете с пробелом вообще ниче не ищет, а без пробела в каталоги не заходит

[Dj_smart]

У меня в программе было
('maps *.map',faAnyFile,SR); // через пробел путь и маска
Где рядом папка maps и файлы *.map в ней

[VenMaster]

Всеже я чет не воткнул почему у меня предположем в c:\ ищет файлы, а вот в папках C:\..\..\ не ищет??

[Dux]

Посмотрите здесь:

http://www.delphicode.ru/files/file_search.htm

[Serge_Bliznykov]

не, ребята, ну всё же очевидно, папки, это такие элементы файловой системы.
Указываете в маске расширение, будут искаться файлы и папки только с указанным расширением!!!!!!
таким образом, решения принципиальных два:
либо искать файлы с заданной маской, а потом искать папки по '*.*'

либо, искать нужно всё по '*.*'
res:=FindFirst(cat+'*.*',faAnyFile, sea);
а потом расширение у файлов проверять дополнительным if'ом:
if AnsiUpperCase(ExtractFileExt(sea.Na me))='.MAP' then begin
{обработка файла с расширением MAP}
end;

и, кстати, найденные директории лучше проверять не на сравнение с faDirectory
а так:
if (sea.Attr and faDirectory)<>0 then begin

тогда найдутся и те директории, у который стоит аттрибут скрытые/системные и прочая...