Developing.ru

Цитата: (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.