利用TFileStream快速复制文件

 {快速拷贝文件的方法}

Procedure  CopyFile(SourceFile, DestFile: String);

var

    sf, df: TFileStream;

begin

    sf := TFileStream.create(SourceFile, fmOpenRead);    //创建源文件流

    try

      df := TFileStream.create(DestFile, fmCreate or fmOpenWrite); 

          try 

              df.CopyFrom(sf, sf.size);

          finally  

              FreeAndNil(df);

          end;

    Finally

       FreeAndNil(sf);

    End;

end;

 

调用这个过程:

CopyFile('C:/1.txt', 'D:/2.txt');

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值