Открытие файла

Для работы с файлом прежде всего необходимо его открыть. Открыть файл в Т.Р. можно для чтения, для записи или одновременно. До открытия файл должен быть связан с файловой переменной. При открытии файла ищется уже существующий файл на диске либо создаётся новый (если файл открывается для записи).

Для открытия файлов предназначены процедуры Reset, Rewrite и Append Первые две предназначены для открытия файла любого вида. Третья для открытия текстового файла.

Процедура Reset (var F:file; RecSize:word);

Если эта процедура применяется к текстовому файлу, то он будет открыт для чтения при последовательном доступе к элементам файла. Если применяется к типизированным или нетипизированным файлам, то такой файл будет открыт как для чтения, так и для записи. При открытии указатель текущей позиции файла устанавливается в его начало. Эта процедура применяется для уже существующих файлов. Если она применяется для файлов, отсутствующих на диске, то будет ошибка при выполнении программы. F – файловая переменная. RecSize – необязательный параметр (только для нетипизированных файлов) устанавливает длину записи для функций обмена с файлом.

Стандартное открытие файла. Assign (F,’ ‘); Reset(F);

При назначении файловой переменной пустой строки происходит автоматическая ссылка на стандартный файл ввода, что в модуле System соответствует устройству CON. С открытием такого файла появляется возможность ввода данных с клавиатуры.

Процедура Rewrite (var F:file; RecSize:word);

Если эта процедура применяется к текстовому файлу, то она открывает его только для записи. Если применяем для типизированных и нетипизированных файлов, то они открываются, как для чтения, так и для записи. Использование этой процедуры требует особого внимания. При попытке создать и открыть новый файл с именем уже существующим на диске набора данных эта процедура удалит этот набор и создаст новый пустой файл с тем же именем.

Отличие между процедурами Reset и Rewrite:

1. при применении этих процедур для текстовых файлов, процедура Reset открывает его только для чтения, а Rewrite только для записи;

2. при применении этих процедур для типизированных и нетипизированных файлов:

a. если Reset применить к несуществующему файлу будет ошибка. Rewrite в данном случае создаст новый файл;

b. если Reset применить к существующему файлу. Файл будет открыт как для чтения, так и для записи.

Процедура Close (var f:file);

Если эта процедура применяется для закрытия файла.

Пример 1. Полная цепочка команд для создания простого текстового файла с именем Work.txt.

Var F: text;

Begin Assign (F,’Work.txt’);

Rewrite (F); Write (F,’Простой текстовый файл’);

Close(F); end.

Процедура Rename (var F; NewName: string);

Если эта процедура применяется для переименования неоткрытого внешнего файла любого типа.

Где F – файловая переменная,

NewName – новое имя файла.

Файлу, ассоциированному с переменной F, присваивается новое имя, которое указывается при вызове процедуры как, например NewName. С этого момента с файловой переменной ассоциируется файл с новым именем.