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!