Hmmm, das ist etwas "verwurstelt in meinen Augen:
Delphi-Quellcode:
While not EoF(Datei_X) do
begin
READ(Datei_X, Wert);
write(' ');writeln(Wert:10:2,' Euro');
for i:=10 to 19 do
Ergebnis:=Wert+1;
//----> hier fehlt das naechste Read !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
end;
1. Wo wird "Ergebnis" initialisiert? VOR das Einlesen gehört ein "Ergebnis:=0"
2. Wozu ist die for-Schleife überhaupt gut? Löschen!
3. Detlef hat ja den entscheidenden Tip bereits gegeben!
Sofern in der Datei überhaupt die richtigen Daten enthalten sind, sollte es so funktionieren:
Delphi-Quellcode:
Ergebnis:=0;
while not eof(Datei_X) do begin
read(Datei_X, Wert);
Ergebnis:=Ergebnis+Wert;
end;