var
s:string;
f:textfile;
begin
AssignFile(f, txt1);
append(f);//写入文件尾
writeln(f,s);//s是另一个txt2的文件内容可以用Read(f,s)读出来,一行一行写入txt1里。然后把txt3也写入txt1里。
closefile(f);
end;实验一下行不行。
s:string;
f:textfile;
begin
AssignFile(f, txt1);
append(f);//写入文件尾
writeln(f,s);//s是另一个txt2的文件内容可以用Read(f,s)读出来,一行一行写入txt1里。然后把txt3也写入txt1里。
closefile(f);
end;实验一下行不行。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货