Узнать количество *.txt файлов в папке

[Tomazo]

Как узнать количество *.txt файлов в указанной папке ?

[zotox]

Сообщение от Tomazo

Как узнать количество *.txt файлов в указанной папке ?

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
 f:TSearchRec;
begin
 if FindFirst('C:\*.txt', faAnyFile, f)<>0 then 
  begin
     Showmessage('Текстовых файлов в папке нету!');
     exit;
  end;

 i:=0;
 repeat
  i:=i+1;
 until FindNext(f) <> 0;
 FindClose(f);
 showmessage(inttostr(i));
end;

[Tomazo]

Спасибо большое!

[Noor]

Для этого есть функция ....

function GetFileCount(Dir: string): integer;
var
  fs: TSearchRec;
begin
  Result := 0;
  if FindFirst(Dir + '\*.txt', faAnyFile - faDirectory - faVolumeID, fs) = 0
    then
    repeat
      inc(Result);
    until
      FindNext(fs) <> 0;
  FindClose(fs);
end;

Пример использования

procedure TForm1.Button1Click(Sender: TObject);
begin
if JvBrowseFolder1.Execute then
  begin
  Edit1.Text := ('Кол-во *.txt файлов = '+ IntToStr( GetFileCount(JvBrowseFolder1.Directory)));
  end;
end;