Текстовые файлы

[tanchik27]

Текстовые файлы

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

 

[Vladimir_S]

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

Конкретизируем. Пусть, например, на диске 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