2 Textdateien zu einer zusammenfügen

[SirThornberry]

und noch eine alternative für die Leute welche Klassen bevorzugen:

Delphi-Quellcode:

var
  src1,
  src2,
  dst   : TFileStream;
begin
  src1 := TFileStream.Create('Datei1.txt', fmOpenRead);
  src2 := TFileStream.Create('Datei2.txt', fmOpenRead);
  dst := TFileStream.Create('zusammen.txt', fmCreate);
  dst.copyfrom(src1, 0);
  dst.copyfrom(src2, 0);
  dst.free;
  src2.free;
  src1.free;
end;

(Ressourcenschutzblöcke solltest du dann selbst hinzufügen)