Функция количества файлов

← →
Tirops (2005-08-27 07:45) [0]

Есть ли в Delphi встроенная функция подсчета количества файлов в директории?

← →
TUser © (2005-08-27 08:25) [1]

Нету. Используй FindFirst/FindNext.

← →
Tirops (2005-08-27 10:11) [2]

Почему-то не получается использовать. До пяти файлов считает правильно, но, например, шесть файлов считает опять как пять. Почему?

procedure Count; var i:integer; sr : TSearchRec; begin if FindFirst("Files\*.*",faAnyFile,sr) = 0 then begin i:=1; repeat FindNext(sr); i:=i+1; until FindNext(sr)<>0; end; Showmessage(inttostr(i)); FindClose(sr); end;

← →
Kot Andrei © (2005-08-27 10:33) [3]

Судя по всему у тебя в этой директории и есть пять файлов, потому что у меня твоя функция считает отлично...

← →
MBo © (2005-08-27 10:36) [4]

Для чего в цикле дважды вызывается FindNext?

← →
begin...end © (2005-08-27 11:25) [5]

function GetFilesCount(const Dir: string): Cardinal;
var
SR: TSearchRec;
begin
Result := 0;
if FindFirst(Dir + "\*.*", faAnyFile, SR) = 0 then
try
repeat
if SR.Attr and faDirectory = 0 then
Inc(Result)
until FindNext(SR) <> 0
finally
FindClose(SR)
end
end.

← →
Big Joe © (2005-08-27 12:47) [6]

procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + "*.*", faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
FileList.Add(SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListFileDir("C:\WINDOWS\", ListBox1.Items);
end;

← →
begin...end © (2005-08-27 12:49) [7]

> Big Joe © (27.08.05 12:47) [6]

> if (SR.Attr <> faDirectory) then

Ой.

← →
Tirops (2005-08-27 14:58) [9]

> begin...end

Спасибо, функция работает отлично. Только можно для общего развития - а как это работает? Имеется в виду эта строчка:
if SR.Attr and faDirectory = 0 then...
Как идет перечисление файлов?

> Big Joe

Тоже огромное спасибо, процедура также отлично считает. Только тоже непонятно, как она переходит на следующий файл?

← →
Tirops (2005-08-27 15:06) [10]

Простите, можно не отвечать - все понял... :)))
СПАСИБО!

Функция количества файлов Найти похожие ветки