Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 04.11.2009, 19:42   #1 (permalink)
tanchik27
Новичок
 
Регистрация: 14.01.2009
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Текстовые файлы

Как осуществить поиск текстовых файлов на диске в паскале, если их количество извество и вывести название файла на печать?
tanchik27 вне форума   Ответить с цитированием

Старый 04.11.2009, 19:42
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Вот ссылки на схожие обсуждения, скорее всего там есть нужная информация

Подобрать текстовые данные
Паскаль, текстовые файлы
Задача на Паскале. Тема: текстовые файлы, записи
Файлы
Текстовые файлы

Старый 05.11.2009, 11:20   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от tanchik27 Посмотреть сообщение
Как осуществить поиск текстовых файлов на диске в паскале, если их количество известно и вывести название файла на печать?
Конкретизируем. Пусть, например, на диске D: имеется N файлов с расширением .txt . Задача - найти их и вывести на экран их имена. Делается это так:

Uses DOS;
Const
N= ; {Вводится количество файлов}
VAR
S:SearchRec;
i:INTEGER;
BEGIN
FindFirst('D:\*.txt',$3F,S);
WriteLn(S.name);
For i:=2 TO N DO
BEGIN
FindNext(S);
WriteLn(S.name);
END;
ReadLn;
END.

О процедурах FindFirst и FindNext можно почитать, например, здесь:
http://klax.tula.ru/~zet/frames/thm_files.html
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 06:01.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.