Тема: Файлы
Показать сообщение отдельно
  (#5 (permalink)) Старый
ummasha ummasha вне форума
Member
 
Аватар для ummasha
 
Сообщений: 288
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.12.2008
Адрес: Брянск - город партизанской славы
По умолчанию 17.02.2009, 22:22

Проверено: работает)))
Program q1;
var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
append(s);
REPEAT
readLn(f,w);
writeLn(s,w);
UNTIL EoF(f);
close(f);close(s);end.

Но сначала нужно создать на диске С файлы 1.txt и 2.txt и что-нибудь в них написать)))
Ответить с цитированием
Ads