2 Textdateien zu einer zusammenfügen

[deep_thought]

Delphi-Quellcode:

var F,G,H:      Textfile;
    name,email: string;
begin
assignfile(F,'Datei1.txt');
assignfile(G,'Datei2.txt');
assignfile(H,'Zusammen.txt');
reset(F);
reset(G);
rewrite(H);
while not (eof(F) or eof(G)) do
 begin
  readln(F,Name);
  readln(G,email);
  writeln(H,name+':'+email);
 end;
closefile(F);
closefile(G);
closefile(H);
end;

mfg deep_thought