Thema: Delphi Zahlen addieren

Einzelnen Beitrag anzeigen

mr.winkle

Registriert seit: 25. Mai 2006
98 Beiträge
 
Delphi 7 Personal
 
#3

Re: Zahlen addieren

  Alt 23. Jul 2006, 23:53
Hallo Zebrafalke
Die folgenden Zeilen hab ich nicht ausprobiert,
aber vom Prinzip her sollte man es so machen können:

(vorrausgesetzt ist ein Dokument das die Zahlen - ohne andere Zeichen - untereinander reiht)

Delphi-Quellcode:
var s:tstringlist;
    add:integer;

s:=tstringlist.create;
add:=0;
s.loadfromfile('datei.txt');
for i:=0 to s.lines.count-1 do inc(add,strtoint(s[i]));

showmessage('Summe: '+inttostr(add));
  Mit Zitat antworten Zitat