TFileStream复制文件

最新推荐文章于 2020-01-08 09:43:07 发布

weixin_30278311

最新推荐文章于 2020-01-08 09:43:07 发布

阅读量69

点赞数 1

原文链接：http://www.cnblogs.com/xe2011/archive/2012/05/31/2527423.html

版权

//功能说明：TFileStream复制文件 

ProcedureFileCopy(Constsourcefilename, targetfilename:String);
Var
  S, T: TFileStream;
Begin
  S:=TFileStream.Create( sourcefilename, fmOpenRead );
  //生成文件流
  try
    T:=TFileStream.Create( targetfilename, fmOpenWriteorfmCreate );
    try
T.CopyFrom(S, S.Size ) ;
      //复制文件
    finally
      T.Free;
    end;
  finally
    S.Free;
  end;
End;

procedureTForm1.Button1Click(Sender: TObject);
begin
  FileCopy('C:\新建文本文档.txt','d:\新建文本文档.txt');
end;