Question

delphi如何让a.txt文件的内容追加在b.txt内容的后面？求高手解答啊

Answer 1

Procedure AppendFile(AFile,bFile:String);
var
  StreamA,StreamB:TFilesStream;
  晌祥Buf:Array of Char;
begin
  StreamA := TFileStream.Create(AFile,fmOpenRead);
  StreamB := TFileStream.Create(BFile,fmOpenReadWrite);
 搭谨中 StreamB.Position := StreamB.Size;
  StreamA.Position := 0;
  setLength(Buf,StreamA.Size);
  StreamA.ReadBuffer(Buf[0],StreamA.Size);
  StreamB.WriteBuf(Buf[0],StreamA.Size);
  StreamA.free;
 知山 StreamB.Free;
end;

Answer 2

var
mb:Tstringlist;
s:string;
begin
mb.loadfromfile(a.txt);
s:=mb.text;
mb.loadfromfile(b.txt);
s:=s+mb.text;
mb.text:=s;
mb.savetofile

Answer 3

用 b.append

追问

能否写详细点？呵呵，新手

追答

http://hi.baidu.com/delphidiary/item/3dfabac76a57a3c3984aa0f1 自己看吧

追问

你这个是把一句话写进去，不是把另外一个的txt的内容写进去。。。。

追答

老兄，不会举一反吗？给的方法和你的问题不是一个道理啊。。你第一个文件用追加方式打开，第二个文件用Tstringlist打开，附到第一个文件后面就行了。。。