zeilenumbruch in text-file löschen

[ichbins]

@Hansa: War schon ein guter Anfang aber ich würde an deiner Stelle auch noch speicherschonend speichern. Wenn du das, was du da machst, bei einer 2,01-GB-Textdatei ( ) versuchst, wird es aus RAM-Mangel unter einem 32-Bit-System, d.h. mindestens bis Delphi2007/WinVista/64bit Prozessor/4GBRAM nicht klappen

Delphi-Quellcode:

procedure entfernezeilenumbrueche(filename:string);
var
  f,t:textfile;
  zeile:string;
begin
  assignfile(f,filename);
  reset(f);
  assignfile(t,filename+'.tmp');
  rewrite(t);
  while not eof(f) do begin
    readln(f,zeile);
    write(t,zeile+' ');
  end;
  closefile(f);
  closefile(t);
end;