Цитата:
Сообщение от 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