| Главная » Статьи » Задачи по программированию |
Поиск файлов в папке [Pascal]
| Здравствуйте, в этой статье я приведу пример поиска файлов в папке.
Программа будет реализована в консольном режиме. _________________________________________________________ var searchResult : TSearchRec; begin If FindFirst( ' Имя файла.txt ', faAnyFile, searchResult) = 0 then begin repeat Writeln('File =' + searchResult.Name); Writeln('Razmer = '+IntToStr(searchResult.Size)); until FindNext(searchResult) <> 0; FindClose(searchResult); end; Readln; end. Фкнкция "FindFirst" Ищет в заданном или текущем каталоге первый файл, совпадающий с заданными атрибутами и маской имени файла | |
| Просмотров: 2432 | Теги: | Рейтинг: 2.0/1 |
| Всего комментариев: 0 | |