Delphi 合并文件


本文整理自网络,侵删。

 
procedure MergeFiles(const Files: TStrings; const TargetFile: string);
var
  I: Integer;
  InStm, OutStm: TFileStream;
begin
  OutStm := TFileStream.Create(TargetFile, fmCreate);
  try
    for I := 0 to Pred(Files.Count) do
    begin
      InStm := TFileStream.Create(Files[I], fmOpenRead);
      try
        OutStm.CopyFrom(InStm, 0);
      finally
        InStm.Free;
      end;
    end;
  finally
    OutStm.Free;
  end;
end;

相关阅读 >>

Delphi android 平台加载文件

Delphi 调用相应程序打开网址

Delphi 使用firedac打开sqlite数据库韩文、阿拉伯文出现乱码的处理方法

Delphi clientdataset复制记录

Delphi读写xml的技巧

Delphi程序升级到64位

Delphi 屏幕整体拉出源代码

Delphi隐藏桌面图片和显示桌面图标

Delphi 删除动态数组的指定元素

Delphi 如何确定windows安装的语言

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...