Question

free pascal文件操作

假设有a,b两个文件，如何将两个文件合并成文件c.详细点。谢谢！
当a,b均不为空文件时。

Answer 1

首先
用assign(a,'xxx.xx');
assign(b,'xxx.xx');
做关联
然后reset打开输入文件
rewrite打开输出文件
在程序最后用close关闭文件

Answer 2

var f1,f2:text; s:string;
begin
assign(f2,'c');
rewrite(f2);

assign(f1,'a');
reset(f1);
while not feof(f1) do begin readln(f1,s); writeln(f2,s); end;
close(f1);

assign(f1,'b');
reset(f1);
while not feof(f1) do begin readln(f1,s); writeln(f2,s); end;
close(f1);

close(f2);
end.