Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.05.01;
Скачать: CL | DM;

Вниз

Search   Найти похожие ветки 

 
Артем   (2009-09-18 20:13) [0]

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

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) [1]

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



Страницы: 1 вся ветка

Текущий архив: 2011.05.01;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
3-1257573219
Oleg__L
2009-11-07 08:53
2011.05.01
Грамотное освобождение SQL-запроса в DLL


15-1295199597
12
2011-01-16 20:39
2011.05.01
Объединенная Земля, будет ли и когда, если да?


15-1286406735
Кто б сомневался
2010-10-07 03:12
2011.05.01
Синхронизация


2-1295729324
dik59
2011-01-22 23:48
2011.05.01
Новая серия в TChart


2-1296122380
ZV
2011-01-27 12:59
2011.05.01
ServerSocket , напрягает отправка ответа клиенту по номеру конне