Доступ к файлам

Любые файлы и логические устройства становятся доступны в модуле после выполнения процедуры открытия. Эта процедура заключается в:

1. связывании ранее объявленной файловой переменной с именем файла;

2. открытии файла для чтения и/или записи.

Файловая переменная называется дескриптором файла.

Пример объявлений файловой переменной

Var

f: textfile; {текстовый файл}

f1: file of integer; {типизированный файл}

f2: file of string[20]; {типизированный файл}

f3: file; {нетипизированный файл}

Процедура связывания файловой переменной с именем файла:

assignfile(<файловая переменная>,<имя файла или логического устройства>);

Пример.

assignfile(f, ‘c:\alpha.txt’);

assignfile(f, ‘PRN’);

Именем файла может быть любое выражение строкового типа, которое строится по правилам определения имени в ОС Windows.

Инициализация (инициация) файла.

Инициализировать файл означает указать для этого файла направление передачи данных. Для этого существуют специальные процедуры:

Формат процедуры	Описание
Reset(<ф.п.>);	Чтение
Rewrite(<ф.п.>);	Запись (файл создаётся заново)
Append(<ф.п.>);	Запись (добавление к существующему) - только для текстовых файлов

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

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

Осуществляется с помощью процедуры

Closefile(<ф.п.>);

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

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

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

Формат	Описание
eof(<ф.п.>);	Логическая функция, тестирующая конец файла; возвращает истину, если достигнут конец файла.
eoln(<ф.п.>);	Возвращает истину, если достигнут конец строки.
seekeof(<ф.п.>);	Возвращает истину, если до конца файла остались только символы-разделители.
seekeoln(<ф.п.>);	То же для строки.
assignprn(<ф.п.>);	Процедура присваивает дескриптор текстового файла принтеру.
erase(<ф.п.>);	Стирает файл, перед удалением файл надо закрыть.
flush(<ф.п.>);	Очищает внутренний буфер файла, при этом все изменения сохраняются на диске.
rename(<ф.п.>,<нов.имя>);	Переименовывает файл.
read(<ф.п.>,<список ввода>);	Читают информацию из файла.
readln(<ф.п.>,<список ввода>);
write(<ф.п.>,<список вывода>);	Записывают информацию в файл, ln – с переводом «курсора» на следующую строку.
writeln(<ф.п.>,<список вывода>);