ВУЗ:
Составители:
Рубрика:
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);
Страницы
- « первая
- ‹ предыдущая
- …
- 20
- 21
- 22
- 23
- 24
- …
- следующая ›
- последняя »