listbox items ausrechnen

hibbert · Verfasst: So 22.12.02 23:10

Hallo,

in einer Listbox sind 100% nur Zahlen vorhanden. Ein Label soll die sume anzeigen, unabhängig, wieviel Items die Listbox enthält. Kann mir einer weiterhelfen?

Jetztschonmal DANKE !

mfg hibbert

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

Ehemaliges Mitglied Erhaltene Danke: 1

In einer for-Schleife die Items durchgehen, zu einem Integer konverteiren und aufsummieren.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Hallo Hibbert,

sollte ungefähr so funktionieren:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Var
  Sum: Integer;
  Idx: Integer;
Begin
  Sum := 0;
  For Idx := 0 To ListBox1.Items.Count -1 Do
    Sum := Sum + StrToInt (ListBox1.Items [Idx]);

  Label1.Caption := IntToStr (Sum);
End;

Gruß
TINO

hibbert · Verfasst: Mo 23.12.02 13:57

hallo,
vielen dank für die schnelle antowrt, aber da ist ein fehler im quellcode

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

Var 
  Sum: Integer; 
  Idx: Integer; 
Begin 
  Sum := 0; 
  For Idx := 0 To ListBox1.Items.Count -1 Do 
    Sum := Sum + StrToInt (ListBox1.items[Idx]); 
  Label1.Caption := IntToStr (Sum); 
End;

aber hat geklappt ! DANKE !
aber wie sieht es mit kommerzahlen aus ? z.B. 1,50 bzw 1.50 ?
geht das auch??

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

hibbert hat folgendes geschrieben:

aber da ist ein fehler im quellcode

Stimmt. Habs geändert!

hibbert hat folgendes geschrieben:

aber wie sieht es mit kommerzahlen aus ? z.B. 1,50 bzw 1.50 ? geht das auch??

Ausprobieren :-D

Gruß
TINO

Ehemaliges Mitglied Erhaltene Danke: 1

StrToFloat

hibbert · Verfasst: Mo 23.12.02 16:50

hallo,
danke Luckie, aber StrToFloat ist für mich etwas ganz neues ! :shock:

Damit habe ich vorher noch nie gearbeitet, und in der online hilfe hab ich nichts gefunden, was mir weiterhilft...

wie muss ich denn dann die variable bezeichnen? (bei einer zahl ist es ja var a:integer;).
und muss ich einfach strtoint durch StrToFloat ersetzen.
wäre nett, wenn du mich aufklären könntest !
mfg hibbert

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

matze · Verfasst: Mo 23.12.02 18:19

also StrToFloat wandelt den string in einem Float wert um. ein folat wert ist ein wert,der auch kommazahlen enthalten kann !!!

bei var musst du dann die variable statt mit integer mit real deklarieren !!!

_________________
In the beginning was the word.
And the word was content-type: text/plain.

hibbert · Verfasst: Mo 23.12.02 19:31

Vielen Dank für eure Hilfe !!!

Merry X Mas euch allen ! :wink:

mfg hibbert

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme