Textdatei lesen und Inhalt in neuer abspeichern

[DeddyH]

Aus dem Kopf getippt und ohne jegliche Fehlerbehandlung:

Delphi-Quellcode:

procedure KopiereZeilen(const Quelle, Ziel: string; Anzahl: Cardinal);
var
  Src, Dest: TextFile;
  Zeile: Cardinal;
  Inhalt: string;
begin
  AssignFile(Src, Quelle);
  AssignFile(Dest, Ziel);
  Reset(Quelle);
  Rewrite(Ziel);
  Zeile := 0;
  while (Zeile < Anzahl) and not EOF(Src) do
    begin
      ReadLn(Src, Inhalt);
      WriteLn(Dest, Inhalt);
      inc(Zeile);
    end;
  CloseFile(Src);
  CloseFile(Dest);
end;