-
Закрытие и удаление файлов
После окончания работы с файлом, его следует закрыть. Для закрытия используется процедура Close.
Обращение к этой процедуре выглядит так:
CloseFile ( <файловая переменная >);
При необходимости файл можно удалить. Для этого используется процедура Erase.
Обращение к этой процедуре выглядит так:
Erase ( <файловая переменная >);
Перечень основных процедур для работы с текстовыми файлами
|
Таблица 12.1 – Основные процедуры, обеспечивающие работу с файлами |
|
|
Назначение операции |
Синтаксис операции |
|
Описание типа файла |
TextFile |
|
Определение имени |
AssignFile( <файловая переменная>, <имя файла> ) |
|
Создание для записи |
Rewrite( <файловая переменная > ) |
|
Установка в начало для чтения |
Reset( <файловая переменная > ) |
|
Установка в конец для добавления |
Append( <файловая переменная > ) |
|
Закрыть файл |
CloseFile ( <файловая переменная > ) |
|
Удалить файл |
Erase( <файловая переменная > ) |
|
Записать в файл |
Write(<файловая переменная >, <список выражений>) WriteLn(<файл. переменная >, <список выражений>) |
|
Читать из текущей файловой позиции |
Read(<файловая переменная >, <список переменных > ReadLn(<файлов. переменная >, <список переменных > |
|
Конец строки |
EoLn( <файловая переменная > ) |
|
Конец файла |
Eof( <файловая переменная > ) |
Общая схема работы с текстовым файлом
-
Примеры работы с текстовыми файлами
Особенности текстовых файлов затрудняют обработку информации внутри этих файлов. Поэтому эти файлы чаще всего используются как хранилища исходных данных для каких то приложений, а также могут использоваться для вывода результатов обработки в виде текста.
Поэтому основные задачи, при работе с текстовым фалом – это задачи ввода и вывода информации.
Рассмотрим некоторые примеры проекта, который можно найти в папке 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