我写了一个程序,用到现在没发现什么问题,你看看吧
program ex;
var f1,f2:text;
a:integer;
st,name,name2:string;
begin
for a:=1 to 9 do write('==-==');
write(' writen by rao');writeln;
writeln;
write('copy from : ');readln(name);
write('copy to: ');readln(name2);
assign(f1,name);
reset(f1);
assign(f2,name2);
rewrite(f2);
a:=0;
while not eof(f1) do
begin
readln(f1,st);writeln(f2,st);a:=a+1;
end;
writeln('copy ',a,' lines');
writeln('ok');close(f1);close(f2);
readln;readln;
end.
用FREEPASCAL做一个可执行文件,以后可以经常用了
