Процедура Assign

Синтаксис: Assign (FileVar, StrExp)

FileVar - имя файловой переменной, StrExp - строковое выражение. Не допускается, чтобы файл FileVar был открыт.

Выполнение процедуры Assign приводит к связи файла FileVar с набором данных, определённых выражением StrExp.

Пример:

Var Results: file of real; ... Assign(Results,'A.TESTS.DOC');

Файловая переменная Results представляет файл с элементами типа real.

Процедура Assign связывает файл Results с набором данных TESTS.DOC, находящемся в дисковом устройстве А:.

Процедура Assign не открывает файл Results.

Процедура Reset

Синтаксис: Reset (FileVar)

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

Пример:

Var InpFile: file of record Name: string[30]; Income: real; end; ... Assign (InpFile,'INCOME.DOC'); Reset (InpFile);

Процедура Assign связывает файл InpFile с набором данных INCOME.DOС, находящемся в текущем каталоге.

Процедура Reset открывает файл InpFile.

Открытие файла с помощью Reset не исключает в будущем возможности обращения к нему с помощью процедур Seek и Write.

Процедура Rewrite

Синтаксис: Rewrite (FileVar)

FileVar - имя файловой переменной. Перед выполнением процедуры Rewrite файл FileVar должен быть связан с набором данных.

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

Пример:

Var OutFile: file of array [1..20] of byte; ... Assign (OutFile,'TESTS.OUT'); Rewrite (OutFile);

Процедура Assign связывает файл OutFile с набором данных TESTS.OUT, находящимся на дискете в дисковом устройстве В:.

Процедура Rewrite открывает файл OutFile. После открытия файл пуст.

Процедура Write

Синтаксис: Write (FileVar, VarList)

FileVar - имя файловой переменной, VarList - список имён переменных. Необходимо, чтобы файл FileVar был открыт. Все переменные списка VarList должны быть одинакового типа с элементами файла.

Выполнение процедуры Write со списком имён переменных эквивалентно выполнению последовательности процедур Write с именами этих переменных. Выполнение процедуры Write с именем переменной приводит к выводу в файл FileVar значения, присвоенного этой переменной.

Пример:

Type ElmType = record Re, lm : Real

end Var OutFile: file of ElmType; ArrVar: array [boolean] of ElmType ... Assign (OutFile,'COMPLEX.RES'); Rewrite (OutFile); Write (OutFile, ArrVar [false], ArrVar [true])

 

Процедура Assign связывает файл OutFile с набором данных COMPLEX.RES.

Процедура Rewrite открывает файл OutFile.

Процедура Write выводит в файл OutFile значение, присвоенное элементом ArrVar [false] и ArrVar [true] массива ArrVar.

Замена приведённого оператора Write оператором

Write (FileVar, VarList);

была бы неправильной,потому что само имя массива не выделяет его элементов.