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

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

20
Текст процедуры:
{
Добавление пустой строки в начало текстового
файла - стандартная версия
Входные данные:
FT - изменяемый файл, должен быть связан
с именем существующего файла до вызова
процедуры.
}
procedure s41(var FT: Text);
var
FTemp: Text;
S: string;
begin
{ Связывание файловой переменной для временного файла }
{ Аналогичное связывание для FT выполнено вне процедуры }
Assign(FTemp, 'temp.tmp');
{ Открытие исходного файла на чтение }
Reset(FT);
{ Открытие временного файла на запись }
Rewrite(FTemp);
{ Копирование исходного файла во временный с изменениями }
WriteLn(FTemp); { изменения: добавление пустой строки }
while not EOF(FT) do { дальше копирование без изменений }
begin
ReadLn(FT, S);
WriteLn(FTemp, S)
end;
{ Открытие временного файла на чтение }
Reset(FTemp);
{ Открытие исходного файла на запись }
Rewrite(FT);
{ Копирование временного файла во исходный }

Страницы