Summe, Mittelwert, min und max ermitteln...

[Sharky]

Zitat von sqrt 9:

..hat noch immer nicht geklingelt

Hai srt 9,

ein Memo hat die Eigenschaft Lines. In jeder dieser "Lines" steht der Text von einer Zeile des Memos (Erste Zeile ist .Lines[0]!).

Jetzt kannst Du mit einer Schleife über alle Zeilen des Memos gehen und mit jeder einzelnen Zeile die notwendigen Operationen durchführen.

[sqrt 9]

ah ok und was wenn die anzahl der Zahlen nicht vorgegeben bzw unbegrenzt ist?

[sqrt 9]

oh habe nicht ganz fertig gelesen...

schon klar

thx

[Sharky]

Zitat von sqrt 9:

ah ok und was wenn die anzahl der Zahlen nicht vorgegeben bzw unbegrenzt ist?

Das wird bei dem code von DeddyH berücksichtigt. In .Lines.Count steht immer die aktuelle Anzahl der Zeilen -1

[Daniel]

Zitat von sqrt 9:

[...] aber ich bin noch nicht wirklich vertraut mit delphi....hat noch immer nicht geklingelt

Dann ist es vielleicht mal an der Zeit, sämtliche Informatik-Lehrer des gesamten Landes anzuprangern. Offenbar fordern sie alle von ihren Schülern Stoff ab, der nie behandelt wurde und zu dem auch niemals Unterlagen verteilt wurden.

[sqrt 9]

danke an alle!!!!

ich werd jetzt mal probieren und meld mich wieder falls es noch was gibt!!!!

thx Michael

[sqrt 9]

irgendetwas klppt leider noch nicht!!!

wenn ich eine Zahl eingebe funzt alles. Sobald ich in die nächste Zeile eine neue Zahl eingebe kommt die Fehlermeldung:

"15
16' is not a valid integer value

was mache ich falsch?

[DeddyH]

Zeig doch mal den Code.

[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

[Die Muhkuh]

Hi,

Du darfst nicht Lines.Text verwenden, sondern musst Lines[I] nehmen um nur die aktuelle Zeile auszulesen. Lines.Text beinhaltet alles, was im Memo steht.