本文整理自网络,侵删。
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 使用firedac打开sqlite数据库韩文、阿拉伯文出现乱码的处理方法
更多相关阅读请进入《Delphi》频道 >>