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

UptoLike

21
while not EOF(FTemp) do
begin
ReadLn(FTemp, S);
WriteLn(FT, S)
end;
{ Закрытие входного файла }
Close(FT);
{ Усечение размера временного файла до 0 }
Rewrite(FTemp);
{ Закрытие временного файла }
Close(FTemp)
end;
Замечания:
1) Данный пример демонстрирует правила использования файловых
переменных в качестве параметров процедур и функций. Во-первых, они всегда
передаются по ссылке. Во-вторых, внутри подпрограмм происходит связывание
файловых переменных при помощи процедуры Assign только для переменных,
объявленных локально. В большинстве случаев связывать файловую переменную-
параметр подпрограммы внутри самой подпрограммы не
имеет смысла и снижает
её универсальность.
2) Недостатком данного подхода является то, что временный файл остаётся
на диске после завершения процедуры. Отчасти он компенсируется тем, что по
окончании процедуры его длина устанавливается в 0 при помощи вызова
процедуры Rewrite перед Close.
В некоторых реализациях языка Паскаль (Borland Turbo Pascal и т. д.)
существуют дополнительные процедуры
и функции для управления файлами:
удаления, переименования и т. д. Например, для того чтобы удалить временный
файл после завершения работы с ним, можно в конце процедуры s41
(обязательно после закрытия временного файла) добавить следующий оператор:
Erase(FTemp)