Hilfe bei Klausuraufgaben

[Der.Kaktus]

Zitat von jarturogt:

wäre der beginn so richtig:

Delphi-Quellcode:

button1.click
begin
   summe:=0; //eingefuegt
   assignfile(f,'datei.txt');
   {$I+} //eingefuegt
   reset(f)
   {$I-}//eingefuegt
   while not eof(f) do
   begin
      read(f,s); readln(f); //eingefuegt
      If length(s) <>0 then 
      begin 
        inc(n); //korrigiert
        summe := summe + wert;
      end;
   end;
end; //eingefuegt

versuch das mal als Ansatz