Путь к файлу и параметрам.[Pascal]

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Medved
Сообщения: 250
Зарегистрирован: 14 фев 2008, 20:51
Контактная информация:

15 фев 2008, 21:48

Цитата: (Stream)
"Можете мне просто написать код чтобы по указанию пути к файлу внутренности скопировались в другой файл мне другого и не надо. =)"


var
fin,fout:text;
data:string;
param1,param2:integer; { Кстати, зачем? 0_o }
c:integer;
begin
Assign(fin,ParamStr(1));
Reset(fin);
Assign(fout,'otvet.txt');
Rewrite(fout);
WHILE NOT EOF(FIN) DO BEGIN {eof([filename]) <=> End Of File (конец файла) filename}
readln(fin,data);
writeln(fout,data);
END;
Close(fin);
Close(fout);
end.
Ответить