Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия Последняя версия Следующая версия справа и слева | ||
subjects:programming:pascal:file [2021/03/29 17:13] ¶ |
subjects:programming:pascal:file [2021/04/02 15:29] ¶ [Открытие текстового файла для чтения] |
||
---|---|---|---|
Строка 1: | Строка 1: | ||
====== Работа с файлами ====== | ====== Работа с файлами ====== | ||
- | Файлы бывают 3-х видов: | + | Файлы (//для Pascal//) бывают 3-х видов: |
* текстовые файлы<code pascal> | * текстовые файлы<code pascal> | ||
var fl:text; {текстовый файл} | var fl:text; {текстовый файл} | ||
Строка 40: | Строка 40: | ||
<code pascal readtextfile.pas> | <code pascal readtextfile.pas> | ||
Program readtextfile; | Program readtextfile; | ||
- | Uses crt; | + | Uses crt; // Подключаем модуль для clrscr |
var | var | ||
fl:text; // Для связи программы с текстовым файлом. Файловые переменные, предназначенные для работы с текстовыми файлами, должны иметь тип данных Text. | fl:text; // Для связи программы с текстовым файлом. Файловые переменные, предназначенные для работы с текстовыми файлами, должны иметь тип данных Text. | ||
str:string; // Будем использовать для чтения строк из файла. | str:string; // Будем использовать для чтения строк из файла. | ||
begin | begin | ||
- | clrscr; | + | clrscr; // clrscr - очищает экран |
assign (fl, 'programs\text.txt'); // Теперь посредством файловой переменной «fl» мы можем управлять файлом «text.txt». | assign (fl, 'programs\text.txt'); // Теперь посредством файловой переменной «fl» мы можем управлять файлом «text.txt». | ||
reset (fl); // Инициация файла – это открытие файла для чтения, записи либо для чтения и записи одновременно. Процедура Reset говорит нам о том, что файл открывается только для чтения. | reset (fl); // Инициация файла – это открытие файла для чтения, записи либо для чтения и записи одновременно. Процедура Reset говорит нам о том, что файл открывается только для чтения. |