1)считывание текста из текстового файла,
2)добавление в него текста,
3)переименование файла,
4) копирование файла,
5) удаление файла
вот тело программы
{прочитаем построчно}
assign(f, 'file'); { associate it }
reset(f); { open it }
while not eof(f) do { read it until it's done }
begin
readln(f, s);
writeln(s);
end;
close(f);
{допишем}
append(f);
writeln(f, 'new stroka');
close(f);
{переименуем}
rename(f, 'new_file');
{удалим}
erase(f);
тут можно скачать полную версию
Комментариев нет:
Отправить комментарий