Процедура поиска - необходимо организовать поиск по маске *.txt в папке Test

[GvR]

Всем привет.
У меня вопрос на счет поиска файлов. Использую для поиска исходный код што разположен ниже. Допусти мне необходимо организовать поиск по маске *.txt в папке Test. Когда маску миняю на:

FindRes:=FindFirst(Dir+'123.txt',faAnyFile,SR);

То тогда он перестает во вложенных папках искть...
Как ето исправить ?

Сама процедура поиска:

procedure TForm1.FindFile(Dir: string);
var
  SR: TSearchRec;
  FindRes: Integer;
begin
  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;

    ListBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;

Процедура OnClick для кнопки Button1 выглядит:

 
procedure TForm1.Button1Click(Sender: TObject);
var
dir:string;
SR:TSearchRec;
begin
ListBox1.Clear;
FindFile('C:\Test\');
end;

Вроде все сказал

[Пепел Феникса]

    ListBox1.Items.Add(SR.Name);

перед добавлением, делайте проверку на расширение.

[GvR]

Можете привести пример? Просто в Delphi я новичок...

[Пепел Феникса]

Михалыч, тогда рекурсия не сработает.

procedure TForm1.FindFile(Dir,ext: string);
var
  SR: TSearchRec;
  FindRes: Integer;
begin
  Ext:=ANSILowerCase(Ext);
  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;

    if ANSILowerCase(ExtractFileExt(SR.Name))=Ext{по поводу точки не помню...надо ли в расширении писать или нет} then ListBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;

From mihali4:
З.Ы. Я сразу и убрал. Просто невнимательно прочитал первый пост. Пардон