Alle Einträge in einer Listbox addieren

[snake41300]

Hallo,
Ich habe eine Listbox in der einige Zahlenwerte aufgelistet sind, diese sollen nun alle addiert werden zu einem Gesamtwert. Gibt es da eine Möglichkeit?
Gruß Snake41300

[Ultimator]

Kein Problem. Du gehst in einer Schleife alle Einträge durch und addierst sie jeweils. Schätze, das hier sollte gehen, ist aber ungetestet:

Delphi-Quellcode:

for i := 0 to ListBox1.Items.Count - 1
  gesamt := gesamt + ListBox1.Items[i];

[snake41300]

Hallo,
Danke so funktioniert es! :hello:
Gruß snake41300

[DeddyH]

Zitat:

Zitat von Ultimator

Delphi-Quellcode:

for i := 0 to ListBox1.Items.Count - 1
  gesamt := gesamt + ListBox1.Items[i];

Ähm, Du meintest sicher

Delphi-Quellcode:

for i := 0 to ListBox1.Items.Count - 1 do
  gesamt := gesamt + StrToInt(ListBox1.Items[i]);

:mrgreen:

[Ultimator]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von Ultimator

Delphi-Quellcode:

for i := 0 to ListBox1.Items.Count - 1
  gesamt := gesamt + ListBox1.Items[i];

Ähm, Du meintest sicher

Delphi-Quellcode:

for i := 0 to ListBox1.Items.Count - 1 do
  gesamt := gesamt + StrToInt(ListBox1.Items[i]);

:mrgreen:

Wie auch immer :-P
Ich bin so gut wie kein Delphi mehr gewohnt, mache fast alles mittlerweile in C# *rausred*^^