Registriert seit: 24. Mai 2008
25 Beiträge
|
Re: Summe, Mittelwert, min und max ermitteln...
24. Mai 2008, 19: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?
|