zeilenumbruch in text-file löschen

[ArminF]

Code:

var
  f1, t1 : text;
  zeile  : string;

begin
  writeln ('Bitte speichern Sie die komplette cDNA-Sequenz in d:\armin\cNDA.txt');
  writeln ('Bitte Datei wieder schliessen und mit RETURN bestaetigen!');
  readln;
  writeln;
  assign (f1,'d:\armin\codeX\cDNA.txt');
  reset (f1);
  assign (t1,'d:\armin\codeX\cDNA_tmp.txt');
  reset (t1);
  while not eof(f1) do
    begin
      readln (f1,zeile);                                                         
      write(t1,zeile);                                                           
    end;
  read (t1, cDNAgesamt);
  close (f1);
  close (t1);
end;

aargh... ich krieg die krätze... jetzt kackt mir das programm andauernd ab.

Problem: ich will den kompletten text aus t1 in den string cDNAgesamt kopieren. Macht man ja mit

Code:

read(t1,cDNAgesamt);

sag ich allerdings

Code:

read(f1,cDNAgesamt);

kackt mir nix ab, was mir aber nicht weiterhilft, da ich ja in f1 die textdatei MIT zeilenumbruch habe...

kann mir mal jemand sagen auf welchem schlauch ich sitze?