§32. Обработка файлов Связь переменной файлового типа с файлом на диске

Для установления связи между файловой перемен­ной и файлом на диске имеется стандартная процедура Assign.

Assign(<имя файловой переменной>,

'<имя файла на диске>');

Например, Assign (F1,'A:INT.DAT');

После установления такого соответствия все опера­ции, выполняемые над переменной F1, будут выпол­няться над физическим файлом, хранящимся на диске А и имею­щим имя INT.DAT.

Файл в каждый момент времени может находиться в одном из двух состояний: либо он открыт только для записи, либо только для чтения.

Чтение из файла

Под чтением из файла понимается пересылка дан­ных из внешнего файла, находящегося на диске, в опе­ративную память.

Для чтения из файла необходимо открыть файл для чтения посредством процедуры

Reset (<имя файловой переменной>);

Собственно чтение данных из файла выполняется процедурой

Read (<имя файловой переменной>,

<имя переменной>);

Переменная должна иметь тот же тип, что и ком­поненты файла. Отметим, что если оператор ввода име­ет вид Read(<имя переменной>), то данные вво­дятся с клавиатуры, а если Read (<имя файловой переменной>, <имя переменной>), то данные вво­дятся из файла, хранящегося на диске.

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

После того как данные из файла прочитаны, его не­обходимо закрыть посредством процедуры

Close (<имя файловой переменной>).

Общая схема чтения данных из файла, таким обра­зом, следующая:

Reset (<имя файловой переменной>);

…

Read (<имя файловой переменной>,

<имя переменной>);

…

Close (<имя файловой переменной>);

Признак конца файла

Так как число элементов файла не известно зара­нее, необходимо уметь определять, что файл кончил­ся. Для этого используется логическая функция

EOF(<имя файловой переменной>)

(EOF - End Of file). Она принимает истинное значение (True), если достигнут конец файла, и ложное (False) − в противном случае.

Пример

Прочитаем из файла целые числа и выведем их на экран:

Program Example_82;

Var F1: File of Integer;

n: Integer;

Begin

Assign(F1, 'A:INT.DAT');

{связываем файловую переменную с файлом

на диске}

Reset(F1); {открываем файл для чтения}

While Not EOF(F1) Do

{пока не достигнут конец файла F1}

Begin

Read(F1, n);

{считываем очередное число}

Write(n,' '); {выводим его на экран}

End;

Close(F1); {закрываем файл}

Readln;

End.

Запись в файл

Под записью в файл понимается вывод результатов программы из оперативной памяти ЭВМ в файл на диске.

Для записи в файл необходимо открыть файл для записи посредством процедуры

Rewrite (<имя файловой переменной>);

Собственно запись данных в файл выполняется про­цедурой

Write (<имя файловой переменной>,

<значение>);

Если оператор вывода имеет вид Write(<значение>), то данные выводятся на экран дисплея, а если Write(<имя файловой переменной>,<значение>), то данные записываются в файл. После работы с файлом его необходимо закрыть.

Общая схема записи данных в файл, таким образом, следующая:

Rewrite (<имя файловой переменной>);

…

Write (<имя файловой переменной>,

<значение>);

…

Close(<имя файловой переменной>);

После выполнения процедур открытия файла для чте­ния или для записи (Reset или Rewrite) текущий указа­тель "смотрит" на первый элемент (элемент с номером 0).