Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
31. Aug 2011
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).
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
31. Aug 2011
Aus dem Kopf getippt und ohne jegliche Fehlerbehandlung:
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);
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
31. Aug 2011
Kommt darauf an. Wenn ich von einer 1 GB-Textdatei nur 2 Zeilen brauche (z.B. 80 Byte), dann wäre es ja Blödsinn, sie erst komplett in eine Stringliste zu laden.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
31. Aug 2011
Den Namen der Datei gibst Du bei AssignFile als 2. Parameter an. Du musst also 2 mal AssignFile aufrufen, einmal für die Quell- und einmal für die Zieldatei. Dann wird die Quelldatei zum Lesen, die Zieldatei zum Schreiben geöffnet (Reset bzw. Rewrite). Nun noch Zeile aus Quelle lesen (ReadLn) und in Ziel schreiben (WriteLn). Zum Schluss beide wieder schließen (CloseFile). Dazu noch ein wenig...