Listbox Elemente Addieren und im Label ausgeben?

[Davin89]

Hallo

Ich brauche ein wenig Hilfe von euch bei einem Programmteil. Und zwar schreibe ich grad ein Programm, bei dem nun
das Problem auftrat Elemente aus einer Listbox zusammenzuzählen. d.h. Es läuft so:

1.Zahl wird per Edit1.text in Listbox hinzugefügt - Fertig
2.Alle Zahlen aus der Listbox sollen addiert werden und in einem Label als Summe ausgegeben werden. -> Wie geht das?

Könnte vllt. jemand beschreiben wie man das macht oder vllt. ein Quellcode dazuschreiben mit beliebigen Variablen?

Wäre echt nett wenn jemand helfen könnte. Danke

[quendolineDD]

Willkommen in der DP
Eventuell solltest du dir den Grundlagen-Thread mal anschauen

Delphi-Quellcode:

for i:= 0 to ListBox.Items.Count -1 do
summe := strtoint(ListBox.Items[i]) + summe;

Label.Caption := inttostr(summe);

Frei geschrieben und nicht getestet. summe musst du noch als Integer deklarieren.

Logisch gesehen ganz einfach. Alle Elemente in der ListBox sind Strings, daher musst du diese zum addierne erstmal in Integer konvertieren.
Dies machst du gleich beim Additionsaufruf, wobei du dich aber verlassen musst, das wirklich nur integer Werte als Strings in der ListBox eingetragen sind
Danach lässt du eine Schleife durchlaufen, welche so oft, wie Einträge in der ListBox vorhanden sind, diese Zeilenweise durchläuft und alle Werte nach und nach addiert.
Zu allerletzt werden die addierten Werde dann in das Label eingetragen.

Grüße

[Davin89]

vielen dank das funktioniert super.

Wenn ich jetz aber die Summe durch 100 rechnen will, sagt der immer Integer und Extended geht nicht. Wie muss man denn die 100 schreiben? ich hatte das so:

gesamt:=summe/100; Kann die Gesamtzahl dann noch gespalten werden in 2 Teile? Euro und Cent meinetwegen? Geht sowas?

[DeddyH]

EineFloatVariable := summe/100

[Aurelius]

Wie DeddyH schon geschrieben hat:

Bei dem Operator "/" muss die Variable, dem der Wert zugewiesen wird, ein Floatwert sein.

Es gibt noch 2 weitere Arten zu "teilen", nämlich "div" und "mod", bei beiden kann die Variable auch ein integer sein.
Allerdings sind diese Operatoren nicht das selbe wie "/"

"10 div 6" ergibt z.B. "1", da 6 einmal in die 10 "reinpasst"
"10 mod 6" ergibt "4", also den "rest" der zur 10 übrig bleibt