| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Search [D7, WinXP]

Артем ©   (2009-09-18 20:13:00) 

имеется код программы,которая считает кол-во файлов в выбранньй дирректории :

function CountFiles(const ADirectory: String): Integer;
var
  Rec : TSearchRec;
  sts : Integer ;
begin
  Result := 0;
  sts := FindFirst(ADirectory + '\*.*', faAnyFile, Rec);
  if sts = 0 then
    begin
      repeat
        if ((Rec.Attr and faDirectory) <> faDirectory) then
           Inc(Result)
           else if (Rec.Name <> '.') and (Rec.Name <> '..') then
           Result := Result + CountFiles(ADirectory + '\'+ Rec.Name);
      until FindNext(Rec) <> 0;
      SysUtils.FindClose(Rec);
    end;
end;
 
 procedure TForm1.Button1Click(Sender: TObject);
var f:string;
begin
   f:=inttostr(CountFiles('C:\Windows'));
   Showmessage(f);
end;
Обьясните пожалуйста, как рабоатает функция CountFiles ???

---

Seleznew   (2009-09-18 20:23:00) [1]

http://www.delphisources.ru/pages/faq/faq_delphi_basics/FindNext.php.html

---

Наверх