如何合并Tfilestream文件？？？高分请教！~~~

Question

var
  FS, Temp: TFileStream;
  I: Char;
begin
  FS := TFileStream.Create('x.x', fmCreate);
  for I := '0' to '4' do
  begin
    try
      Temp := TFileStream.Create(I + '.tmp', fmOpenRead);
      FS.CopyFrom(Temp, Temp.Size);
    finally
      Temp.Free;
    end;
  end;
  FS.Free;
end;

Answer 1

可以的。
首先将它们0.tmp 1.tmp 2.tmp 3.tmp 4.tmp对应声明
stringlist1,stringlist2,stringlist3,stringlist4,stringlistall:Tstringlist;
下面是读取文件流的例子，你要读取4个文件到对应的stringlist中
在利用stringlistall.saveFromStream(tmpstream);
-----------------------
procedure TForm2.SpeedButton1Click(Sender: TObject);
var tmplist:TStringList;
    tmpstream:TFileStream;
begin
  tmplist:=TStringList.Create ;
  if OpenDialog1.Execute then
     begin
     tmpstream:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
     tmpstream.Position:=0;
     tmplist.LoadFromStream(tmpstream);
     //showmessage(inttostr(tmplist.Count ));
     end;
  tmplist.Free ;
  tmpstream.Free ;end;