Datei Binder/Joiner

[DGL-luke]

was ist das für ein monstercode?

Also einfach aneinanderhängen?

Delphi-Quellcode:

var s1,s2: TStream;
begin
  s1 := TFileStream.Create('C:\test\1.txt',fmOpenWrite);
  s2 := TFileStream.Create('C:\test\2.txt',fmOpenRead);

  s1.Position := s1.Size;
  s2.Position := 0;
  s1.CopyFrom(s2,s2.Size);
end;