Объединить 2 файла

Материал из DRKB


procedure ConCatFiles(const TargetName: string;
  const SourceNames: array of string);
var
  i: Integer;
  target, source: TFileStream;
begin
  target := TFileStream.Create(TargetName, fmCreate);
  try
    for i := Low(Sourcenames) to High(Sourcenames) do
    begin
      source := TFileStream.Create(SourceNames[i], fmOpenread or fmShareDenyNone);
      try
        target.CopyFrom(source, 0);
      finally
        source.Free;
      end;
    end;
  finally
    target.Free;
  end;
end;


Использование:


  chDir(ExtractFileDir(Application.Exename));
  ConcatFiles('sum.txt', ['project1.dpr', 'unit1.pas', 'unit2.pas']);


ID: 03178