Lesen, Verändern und Überschreiben

[DelfinMann]

Hallo!

Hab ein kleines Problem und hoffe auf Hilfe.

Delphi-Quellcode:

program lesen_veraendern;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  f : textFile;
  c : integer;

begin
  assignFile(f,'daten.txt');
  reset(f);

  while not eof(f) do begin
    read(f,c);
    writeln(c);     // 10 11 13 12 15 10 18 12 19 17
    c := c + 10;    // 20 21 23 22 25 20 28 22 29 27

    ...             // Veränderte Daten speichern, aber wie?

  end;

  closeFile(f);

  readln;

end.

Nachdem die Daten aus der Datei gelesen wurden, soll 10 hinzugefügt werden und der alte Wert überschrieben werden. Irgendwie klappt es nicht ... habe es mit "rewrite" versucht.


Danke!

[Jelly]

Hallo une herzlich willkommen hier in der DP ,

Rewrite ist schon das richtige Stichwort. Du kannst aber nicht gleichzeitig in der Datei lesen und sie beschreiben. Erstelle eine neue Datei in die du reinschreibst. Wenn du fertig bis, lössche die erste und benenne die 2. um.

[DelfinMann]

Jepp ... nun läuft es. 8)