| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Количество файлов в папке [D7, WinXP]
Antonmm © (2004-09-11 21:39:00)Как определить количество файлов и папок в папке?
Рыба (2004-09-11 22:14:00) [1]>Jel © (11.09.04 22:07) [2]
Верно. Виноват. налету писал по памяти.
Jel (2004-09-11 22:07:00) [2]repeat
if SearchRec.Name[1] <> '.' thenInc(Result);
until FindNext(SearchRec) <> 0;
иначе будет на 2 больше для некорневого каталога (. и ..)
Рыба (2004-09-11 21:54:00) [3]function NumFilesInDir(const Dir: string): Integer;
var SearchRec: TSearchRec;
begin
Result := 0;
if FindFirst(Dir, faAnyFile, SearchRec) = 0 then
repeat
Inc(Result);
until FindNext(SearchRec) <> 0;
end;
| |
