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 从网页里下载图片的程序

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

Delphi tms web core 实现下载

Delphi idhttp访问datasnap有密码验证的中间件

Delphi杀进程的两种方式

Delphi 查看所有的串口设备

Delphi中用拼音首字符序列来实现检索功能

Delphi xe 取得 app 自己的版本号 (狠跨 4 个平台)

Delphi zlib 流压缩解压

Delphi webbrowser ie 窗口选择中，选中的文字内容

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