
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;
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1