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;

[MutterGans]

Vielen Dank schonmal...
ich habe jetzt gerade mal versucht das einzubauen... Leider kommt bei dieser Zeile :" s := Readln(tfQuelle); //Liest eine Zeile ein" noch diese Fehlermeldung :"[Pascal Error] Unit1.pas(39): E2010 Incompatible types: 'string' and 'procedure, untyped pointer or untyped parameter'"!!!

[DeddyH]

Markus hat das so wie ich aus dem Kopf getippt und sich dabei wohl vertan. Schau doch einfach in die Hilfe, wie ReadLn aufzurufen ist (ich glaube, ich habe das richtig gemacht, bin aber auch nicht sicher).