zeilenumbruch in text-file löschen

[xaromz]

Hallo,

Zitat von ArminF:

hä?! jetzt versteh ich nur bahnhof :roll: ...und was bitte fängt auch mit re... an?! Bitte keine armen verstreuten akademiker verwirren, bitte :lol:

Du hast Rewrite und Reset vertauscht. Du öffnest die Quelldatei zum Schreiben und die Zieldatei zum Lesen.
Versuch's mal so:

Delphi-Quellcode:

procedure cDNAEingabe;                                                          {Eingabe der cDNA} 

var 
  f1, t1 : text; 
  zeile  : string; 

begin 
  writeln ('Bitte speichern Sie die komplette cDNA-Sequenz'); 
  writeln ('OHNE ZEILENUMBRUCH 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);          // <- hier
  assign (t1,'d:\ARMIN\codeX\cDNA_tmp.txt'); 
  rewrite (t1);        // <- und hier
  while not eof(f1) do 
    begin 
      readln (f1,zeile);                                        {liest aus f1 eine Zeile und speichert in "zeile"} 
      write(t1,zeile);                                          {schreibt in t1 den Inhalt von zeile} 
    end; 
  close (t1);  // <- statt Seek: einfach neu öffnen
  reset (t1);
  read (t1,cDNAgesamt); 
  close (f1); 
  close (t1); 
end;

Gruß
xaromz