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;
Свадьба — одно из самых запоминающихся событий в жизни человека. Но чтобы сохранить все краски этого прекрасного дня, в альбоме бережно хранятся свадебные фотографии, навсегда запечатлевшие жениха и невесту.