Zitat von
sqrt 9:
[delphi]
procedure TForm1.Button1Click(Sender: TObject);
var summe, mitte, max, min:double;
i, zahl: integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
zahl:=strtoint (memo1.lines.text);
i:=???;
edit1.Text:=floattostr(i);
end;
falls ihr mich fragt was ich mir dabei gedacht hab....keine Ahnung
Mal ne Frage gibst du auch Komma-Zahlen ein dann müsstest du FloatToStr benutzen
und i ist Integer also nimm am besten intToStr (wegen der Form
)
an i solltest du gar nichts ändern
und für die summe mach doch einfach Summe:=summe+ Memo1.Lines
für den Durchschnitt teile dies durch den Count+1
und min und max sind am leichtesten die kannst du dir selber überlegen
(TIPP: nimm ne if-Abfrage
(nicht Schleife ))
[EDIT]Rechtschreibfehelr verbessert
[/EDIT]