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 获取动态创建的image与scrollbox的相对位置

Delphi firedac 下的 sqlite [7] - 备份、优化、事务(transaction)

Delphi webservices传数据

Delphi scrollbox1滚动框鼠标滚轮

Delphi 带参数的 exit

Delphi savelog 方便的记录日志

Delphi 用拼音首字符检索汉字的源代码

Delphi 在memo查找字符并定位

Delphi解决dll注入桌面卡的问题

Delphi 获取listview1鼠标所在位置的行名称

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

转载请注明出处：木庄网络博客 » Delphi 合并文件