Textdatei lesen und Inhalt in neuer abspeichern

[mkinzler]

Stringlist:

Delphi-Quellcode:

var
 sl: TStrings;
...
begin
    sl := TStringList.Create;
    sl.LoadFromFile( '<Quelldatei>');
    ... 
    sl.SaveToFile( 'Zieldatei>');
   ...
end;

I/O Routinen:

Delphi-Quellcode:

var
  tfQuelle, tfZiel: TextFile;
  s: string;
...
begin
    AssignFile( tfQuelle, '<Quelldatei>');  
    AssignFile( tfZiel, '<Zieldatei>');
    Reset( tfQuelle); //Öffnet zum Lesen
    Rewrite( tfZiel); //Öffnet zum Schreiben
    s := Readln( tf); //Liest eine Zeile ein
    Writeln (tfZiel, s); //Schreibt eine Zeile
    ...
    CloseFile( tfZiel);
    CloseFile( tgQuelle);
end;