Einzelnen Beitrag anzeigen

sqrt 9

Registriert seit: 24. Mai 2008
25 Beiträge
 
#33

Re: Summe, Mittelwert, min und max ermitteln...

  Alt 24. Mai 2008, 18:54
procedure TForm1.Button1Click(Sender: TObject);
var summe, mitte, max, zahl, min:double;
i: integer;
begin
summe:=0;
for i := 0 to Memo1.Lines.Count - 1 do
zahl:=strtofloat(memo1.lines[i]);
inc(summe,{hier taucht die fehlermeldung auf}strtoint(memo1.lines[i]));
edit1.Text:=floattostr(summe);

end;

wofür ist das INC überhaupt?
  Mit Zitat antworten Zitat