Помощь - Поиск - Пользователи - Календарь
Полная версия: Копирование текстового файла. Ошибка
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ast
3.11.2005 0:21
Программа должна переписывать содержимое одного текстового файла в другой.
Код

var s,g: string;
     t,f: text;
     c: string;

begin
readln(s);
assign(t,s);
reset(t);
readln(g);
assign(f,g);
reset(f);


while not eof(t) do
begin
readln(t,c);
writeln(f,c);

end;
end.

Altair
3.11.2005 0:26
reset для тектовых файлов открывает на чтение.
а ты записывать хочешь:
writeln(f,c);

не выйдет... надо не ресетом файл новый октрывать (тем более его нет), а реврайтом
rewrite(f);
ast
3.11.2005 4:12
Спасибо. Ещё нужно дописать
Код
...
close(t);
close(f);
...
в конце.

М
 само собой
Altair

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.