ReSet(f_int);
При этом на внешнем носителе отыскивается файл с заданным именем и, если он найден, то указатель текущей записи становится в начало файла – на запись с номером 0.
Запись в открытый для записи файл осуществляется оператором
Write(файловая переменная, имя записываемой переменной);
Например,
Write(f_int, n); записать в файл f_int значение переменной n
Внимание! Оператор WriteLn использовать нельзя.
В этом случае значение переменной n записывается в файл на то место, где стоит указатель текущей записи. Если там была какая-то запись, то она заменяется новой. После записи указатель автоматически перемещается на следующую позицию. Если указатель перед этим находился на метке EOF - в конце файла, то новая запись помещается в конец файла и файл автоматически расширяется.
Из открытого для чтения файла можно прочитать все записи и вывести их, например, на экран:
ReSet(f_int); открываем файл f_int для чтения
While Not(EOF(f_int) Do пока не конец файла f_int
Begin
Read(f_int,n); читаем из него очередную запись в переменнуюn
Write(n:5); выводим прочитанное значение на экран
End;
WriteLn; текстовый курсор – в начало новой строки
на экране
Внимание! Оператор ReadLn при чтении типизированных файлов использовать нельзя.
Таким образом, типизированный файл читается с помощью цикла с предусловием While. Условие окончания цикла – чтение метки конца цикла EOF.
После окончания работы с файлом он должен быть закрыт оператором:
Close(файловая переменная);
Например,
Дата добавления: 2015-08-08; просмотров: 447;