比如我有1.txt,2.txt,3.txt三个文本文件，如何将它们全并成123.txt？ thanks

你的意思是純檔名合併嗎? 你可以先用 Tstringlist 的 loadfromfile  把你的要的檔案先data load 到 tstringlist 再把他們合併 再存起來

 
var a , b, c ,abc : tstringlist    a := tstringlist.create();
b := tstringlist.create();
c := tstringlist.create();
abc := tstringlist.create();    a.loadfromfile('\1.txt');
b.loadfromfile('\2.txt');
c.loadfromfile('\3.txt');    abc.assign(a);
abc.addstring(b);
abc.addstring(c);
abc.savetofile('123.txt');    a.free;
b.free;
c.free;
abc.free;

可能不是最好的方法 !!! 我也是初學者 ！！！ 不要怪我呀．．

我没有用过TFileStream，用它是不是简单些呢？ 能否给例程？谢谢。（DELPHI本身的TFileStream帮助中看不明白）

引言: 你的意思是純檔名合併嗎? 你可以先用 Tstringlist 的 loadfromfile 把你的要的檔案先data load 到 tstringlist 再把他們合併 再存起來

 
var a , b, c ,abc : tstringlist    a := tstringlist.create();
b := tstringlist.create();
c := tstringlist.create();
abc := tstringlist.create();    a.loadfromfile('\1.txt');
b.loadfromfile('\2.txt');
c.loadfromfile('\3.txt');    abc.assign(a);
abc.addstring(b);
abc.addstring(c);
abc.savetofile('123.txt');    a.free;
b.free;
c.free;
abc.free;

可能不是最好的方法 !!! 我也是初學者 ！！！ 不要怪我呀．．

哈哈 不好意思 我也很少用Tfilestream 但看過help也不知道可不可以直接從檔案read 進來 因為它把供的 API 是read buffer 我也看不懂的是什麼意思( var buffer;) 沒有type 的 ???!!! 有大大知道的也可以讓我學一下 ！另外提供的是 copy from 這個從另外一個Tstream copy 過來 所以用這個先要create Tstream 哈哈講那麼久都沒幫上忙.. 可能不是最好的方法 !!! 我也是初學者 ！！！ 不要怪我呀．． 我最喜歡吃零食啦^.^

TStrings的loadfromfile與saveToFile本身也都是使用TFileStream進行操作。    您要完全使用流操作，可以參照下面的代碼：

procedure TForm1.Button1Click(Sender: TObject);
var
  fromStream, toStream: TFileStream;
begin
  tostream := TFileStream.Create('E:\Delphi\abc.txt', fmCreate);
  fromStream := TFileStream.Create('E:\Delphi\a.txt', fmOpenRead or fmShareDenyWrite);
  toStream.CopyFrom(fromStream, fromStream.Size);
  fromStream.Free;
  fromStream := TFileStream.Create('E:\Delphi\b.txt', fmOpenRead or fmShareDenyWrite);
  toStream.CopyFrom(fromStream, fromStream.Size);
  fromStream.Free;
  fromStream := TFileStream.Create('E:\Delphi\c.txt', fmOpenRead or fmShareDenyWrite);
  toStream.CopyFrom(fromStream, fromStream.Size);
  fromStream.Free;
  toStream.Free;
end;    

---------------------------- 於Delphi K.Top之上 博采眾家之長, 奉獻綿薄之力 ---------------------------

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------