谁有多个文档合并与释放的例子啊！！！！

Question

谢谢！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

Answer 1

用TFileStream可以比较简单的实现。

Answer 2

给我也发一个吧[email protected]

Answer 3

f:file;//被分割的文件
  ff:array[1..99] of file;//分割出来的文件
blockread和blockwrite的使用:
  blockread(f,buf,bufsize,rn);
  blockwrite(ff[i],buf,rn,wn);

Answer 4

风焱：我用FILESTREAM合并了文档，可是现在不知道怎么释放啊

Answer 5

FILESTREAM.free
最好
freeandnil(FILESTREAM)

Answer 6

给你一个例子,自己改一下就行了
 procedure TForm1.Save1Click(Sender: TObject);var
  NewFileName: string;
  Msg: string;
  NewFile: TFileStream;
  OldFile: TFileStream;
begin
  NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
  Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
  if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
  begin
    OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite);
    try
      NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);      try
        NewFile.CopyFrom(OldFile, OldFile.Size);
      finally
        FreeAndNil(NewFile);
      end;
    finally
      FreeAndNil(OldFile);
    end;
  end;end;