Текстовые файлы
Как осуществить поиск текстовых файлов на диске в паскале, если их количество извество и вывести название файла на печать?
|
Цитата:
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 |
Часовой пояс GMT +4, время: 20:26. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.