Почитайте!

Нас читают

Статьи о программировании и не только

Mail.Ru

Rambler's Top100

Programming Blogs - BlogCatalog Blog Directory


Сколько файлов в указанной папке?

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;


Свадьба - одно из самых запоминающихся событий в жизни человека. Но чтобы сохранить все краски этого прекрасного дня, в альбоме бережно хранятся свадебные фотографии, навсегда запечатлевшие жениха и невесту.