Общие процедуры работы с файлами

Процедура или функция

Назначение

Assign (Var f;

FileName: String)

Предназначена для связывания файловой переменной f (формальный файл) с физическим файлом на диске, путь к которому хранится в переменной FileName

Close (Var f)

Предназначена для закрытия файла f

Reset (Var f)

Открывает файл f для чтения, устанавливает указатель на начало файла

Rewrite (Var f)

Открывает файл f для записи, устанавливает указатель на начало файла, стирает предыдущее содержимое файла, если оно было

Erase (Var f)

Предназначена для удаления файла f, файл при этом должен быть закрытым

Rename (Var f;

NewName: String)

Предназначена для переименования файла f, файл при этом должен быть закрытым. В NewName записывается новое имя файла

EOF (Var f): Boolean

Функция выдает результат True, если достигнут конец файла f, т.е. при прочтении последней записи

Assign (f, ‘Data.txt’);

{ Связываем файл f с файлом Data.txt, }

{ расположенном в текущем каталоге}

Assign (f, ‘A:\ MyProg.pas’);

{ Связываем файл f c файлом }

{ MyProg.pas, расположенном на }

{ диске А: }

FileName := ’D:\Gr614\Inanov.doc’;

Assign (f, FileName);

{ Связываем файл f c файлом }

{ Ivanov.doc, расположенном на диске D}

{ в каталоге Gr614. Имя файла и путь }

{ к нему хранятся в строковой }

{ переменной FileName }

Assign (f, ‘PRN’);

{ Связываем файл f с принтером }

Assign (f, ‘Data.txt’);

{ Связываем файл f с файлом Data.txt, }

{ расположенном в текущем каталоге }

Rewrite (f);

{ Открываем файл f для записи }

Write (f, v);

{ Пишем в файл f данные через переменную v}

Close (f);

{ Закрываем файл f }

Reset (f);

Открываем файл f для чтения }

Read (f, v);

{ Читаем из файла f данные через }

{ переменную v }

Close (f);

{ Закрываем файл f ( Обязательное }

{ закрытие ) }

Rename (f, ‘New.dat’);

{ Даем файлу f новое имя «New.dat» }

Erase (f);

{ Уничтожаем файл ( удаляем с диска ) }