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
