Summe, Mittelwert, min und max ermitteln...

[Sharky]

Zitat:

Zitat von sqrt 9

..hat noch immer nicht geklingelt :gruebel:

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... :oops:

schon klar

thx

[Sharky]

Zitat:

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:

Zitat von sqrt 9

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

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!!!! :hi:

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 :oops:

[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. ;)