Дополнительно (на усмотрение преподавателя!!!) процедуры Rename и Erase.

д) Процедура Rename.

Назначение:	переименование неоткрытого файла.
Синтаксис:	Rename(F, NewName), где F – файловая переменная, NewName – НОВОЕ имя файла.
Описание работы:	процедура переименовывает неоткрытый существующий файл.
Примечание:	перед вызовом процедуры переименования файла должна быть установлена связь между внешним файлом со старым именем и файловой переменной; процедуру нельзя использовать для уже открытого файла, т. к. могут возникнуть нежелательные последствия со стороны операционной системы; переименование осуществляется только для реально существующих файлов, иначе возникает ошибка выполнения программы.

е) Процедура Erase.

Назначение:	удаление неоткрытого файла
Синтаксис:	Erase(F), где F – файловая переменная.
Описание работы:	процедура удаляет указанный файл с диска.
Примечание:	перед вызовом процедуры удаления файла должна быть установлена связь между внешним файлом и файловой переменной; процедуру нельзя использовать для уже открытого файла, т. к. могут возникнуть нежелательные последствия со стороны операционной системы; удаление осуществляется только для реально существующих файлов, иначе возникает ошибка выполнения программы.

Пример 2. Удаление или переименование указанного файла.

Program Primer; {заголовок программы}

Uses Crt;

Var

F : Text; {F - файловая переменная}

Ch : Char; {Ch - символьная переменная}

St : String; {St - строковая переменная максимальной длины}

Begin

Clrscr;

Writeln(‘Введите имя файла’); {ввод с клавиатуры имени файла в переменную St}

Readln(St);

Assign(F, St); {установка соответствия между внешним файлом и переменной F }

Write(‘Удалить (У), Переименовать (П), Выход (В)’); {вывод меню}

Readln(Ch); {ввод пункта меню}

Case Ch of {начало оператора выбора}

‘У’, ‘у’ : Begin {если выбрано «Удалить», то происходит удаление файла}

Erase(F);

Writeln(‘Файл удален’); {вывод сообщения «Файл удален» на экран}

End;

‘П’, ‘п’ : Begin {если выбрано «Переименовать»}

Write(‘Введите новое имя файла: ’); {то ввод с клавиатуры}

Readln(St); {нового имени файла в строковую переменную St}

Rename(F,St); {переименование указанного файла}

Writeln(‘Файл переименован’); {вывод сообщения «Файл переименован»}

End;

‘В’, ‘в’ : Halt(1); {если выбран «Выход», то выход из программы}

End;

Readkey;

End. {конец программы}