关于一个简单的Stream,50分！

Question

很简单的啊？delphi里面的文件指针就是一个stream吧？所以你这个问题似乎不能
成立的说……

Answer 1

TFileStream* fsDstFile = new TFileStream->( path, fm )
void* buf =AllocMem( len );
..........
fsDstFile->WriteBuf( buf, buf_lenth );
delete fsDstFile

Answer 2

var
  fs: TStream;
  fn: string;  //filename
begin
  fs := TStream.Create();
  try
    fs.LoadFromFile(fn);
    fs.SaveToFile(fn);
  finally
    fs.Free;
  end;
end;//参数不一定准确。请看帮助。