Delphi FAQ >> Файлы и каталоги
Чтобы узнать, сколько файлов находится в корне указанного каталога, можно просто поискать все файлы в нем и посчитать, сколько файлов найдено. Для этого можно воспользоваться функциями Delphi FindFirst … FindNext … FindClose.
//возвращает количество файлов в указанной директории
function FilesInDir(Dir: String): Integer;
var sr: TSearchRec;
begin
//сначала считаем что файлов ноль Result := 0;
//ищем первый файл
if FindFirst(Dir + ‘\*’, faAnyFile — faDirectory — faVolumeID, sr) 0 then
begin
//если не нашли, то прекращаем подсчет FindClose(sr); exit;
end;
//пока найден следующий файл, увеличиваем результат на единицу
repeat inc(Result);
until (FindNext(sr) 0);
//завершаем поиск FindClose(sr);
end;
Свадьба — одно из самых запоминающихся событий в жизни человека. Но чтобы сохранить все краски этого прекрасного дня, в альбоме бережно хранятся свадебные фотографии, навсегда запечатлевшие жениха и невесту.