Работа с текстовыми файлами в языке Паскаль - 22 стр.

UptoLike

22
Чтобы воспользоваться процедурой переименования файлов, в примере 8
необходимо изменить процедуру s41 таким образом, чтобы она принимала в
качестве параметра строку с именем обрабатываемого файла вместо файловой
переменной.
Пример 9. Реализовать процедуру, вставляющую в начало заданного
текстового файла пустую строку (с использованием расширений языка Паскаль
для управления файлами).
Входные данные:
STимя
изменяемого файла (строка);
Текст процедуры:
{
Добавление пустой строки в начало текстового
файла - версия, использующая расширения языка
для управления файлами
Входные данные:
ST - имя изменяемого файла, сам файл не должен
быть открыт до вызова процедуры.
}
procedure s42(ST: string);
var
FT, FTemp: Text;
S: string;
begin
{ Связывание файловой переменной для основного файла }
Assign(FT, ST);
{ Связывание файловой переменной для временного файла }
Assign(FTemp, 'temp.tmp');
{ Открытие исходного файла на чтение }
Reset(FT);
{ Открытие временного файла на запись }
Rewrite(FTemp);