Процедуры и функции для обработки файлов.

Процедура Assign (F1, 'ttt.pas') служит для связи файловой переменной F1 с некоторым файлом ttt.pas, расположенным в текущем каталоге.

Процедура Reset(F1) открывает существующий файл данных, имя которого перед этим было связано при помощи процедуры Assign с некоторой файловой переменной, указанной в процедуре Reset как параметр.

Если возможности открыть файл ttt.pas нет, то возникает ошибочная ситуация, подавить которую при выполнении можно, блокировав директивой компилятора {$1-} проверку ошибок ввода / вывода.

Процедура Rewrite(F1) создает новый пустой файл и присваивает ему имя, заданное процедурой Assign, и открывает его для записи или чтения. Если файл существует, его содержимое стирается, а сам файл открывается заново.

Процедура Append (F1), где F1 — имя файловой переменной позволяет добавлять новые записи — строки в файлы, объявленные в программе как текстовые.

Процедура Close (F1) закрывает открытый ранее файл, связанный с указанной в качестве параметра файловой переменной.

Процедуры Rename (F1,New) и Erase(F1) позволяют переименовать или стереть существующий файл с диска.

Функция Eof(End Of File) — позволяет в процессе считывания информации проверить, достигнут ли конец файла, т.е. находится ли указатель файла за последним элементом или нет.

Процедура read – предназначена для чтения информации из файла, связанного с файловой переменной F1:

Read (f1,x1,x2,x3,…,xn);

Read(f1,x);

Операторы последовательно считывают компоненты из файла в указанные переменные.

Для записи в файл можно применять стандартные операторы записи следующей структуры:

Write (f1,x1,x2,…,xn);

Write (f1,x);

Для того чтобы создать файл, необходимо выполнить следующие действия:

1. Описать файловую переменную.

2. Связать её с физическим файлом (assign).

3. Открыть файл для записи(rewrite).

4.Внести необходимую информацию в файл(write).

5. Обязательно закрыть файл(close).

Для выполнения считывания информации из файла надо:

1. Описать файловую переменную.

2. Связать её с физическим файлом.

3. Открыть файл для чтения(reset).

4. Считать необходимую информацию (при этом нужно проверить, достигнут ли конец файла).

5. Закрыть файл.

Пример 1. Записать n действительных чисел в файл.

program abc;

var

f:file of real;

a:real;

i,n :integer;

begin

assign (f,'d:\tp\abc.dat');

rewrite(f);

read(n);

for i:=l to n do

begin

write('a=');

read(a);

write(f,a)

end ;

close (f);

end.

Пример 2. На диске D в каталоге ТР находится файл вещественных чисел. Необходимо распечатать его содержимое и вычислить количество компонен­тов файла.

Program bca;

Var fl:file of real;

a: real;

n: integer;

begin

assign(fl,'D:\TP\abcl.dat');

reset(fl) _;

n:=0;

while not eof (fl) do

begin

read(fl,a);

n:=n+1;

writeln(n, ‘-й элемент файла равен ', а:10:6)

end;

writeln;

writeln ('в файле ',n,' элементов^’);

close(fl);

end.