Форум: "Основная";
Текущий архив: 2011.05.01;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c