7.1.61Закрытие и удаление файлов

После окончания работы с файлом, его следует закрыть. Для закрытия используется процедура Close.

Обращение к этой процедуре выглядит так:

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

При необходимости файл можно удалить. Для этого используется процедура Erase.

Обращение к этой процедуре выглядит так:

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

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

Таблица 11.1 – Основные процедуры, обеспечивающие работу с файлами
Назначение операции	Синтаксис операции
Описание типа файла	TextFile
Определение имени	AssignFile( <файловая переменная>, <имя файла> )
Создание (очистка) для записи	Rewrite( <файловая переменная > )
Установка в начало для чтения	Reset( <файловая переменная > )
Установка в конец для добавления	Append( <файловая переменная > )
Закрыть файл	CloseFile ( <файловая переменная > )
Удалить файл	Erase( <файловая переменная > )
Размер файла	FileSize(<файловая переменная >)
Номер текущей записи	FilePos(<файловая переменная >)
Перейти к записи	Seek( <файловая переменная >, <номер записи> )
Записать в текущую файловую позицию	Write(<файловая переменная >, <переменная соотв. типа>)
Читать из текущей файловой позиции	Read(<файловая переменная >, <переменная соотв. типа>
Конец строки	EoLn( <файловая переменная > )
Конец файла	Eof( <файловая переменная > )

Общая схема работы с текстовым файлом

7.1.62Примеры работы с текстовыми файлами

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

Поэтому основные задачи, при работе с текстовым фалом – это задачи ввода и вывода информации.

Рассмотрим некоторые примеры проекта, который можно найти в папке ProjectToLection\ToLection20.

Пример ввода-вывода при решении простейшей задачи

В качестве примера возьмем задачу расчета по простейшей формуле y=(a+b)/c.

Предположим, что исходные данные находятся в текстовом файле, который связан с файловой переменной f1. Результат будем выводить в текстовый файл, связанный с переменной f2 .

Процедура расчета будет выглядеть так.

//Расчет по формуле

procedure TForm1.btnCalcFormulaClick(Sender: TObject);

var a,b,c,y:real ;

begin

Reset(f1); Rewrite(f2);

read(f1,a,b,c);

y:=(a+b)/c;

writeln(f2,'a=',a:1:2,' b=',b:1:2,' c=',c:1:2);

writeln(f2,' y=',y:1:2);

closeFile(f1);

closeFile(f2);

end;

Пусть содержимое файла с исходными данными будет, например, таким.

2 3

0.5

Тогда в файле результатов мы получим следующую информацию

a=2.00 b=3.00 c=0.50

y=10.00