In den ListView SubItems Beträge addieren

[iron]

Habe im Forum nix dazu gefunden, also möcht ich Euch wiedermal nerven.

Es gaht darum das ich in einer ListView in den SubItems Beträge zu stehen habe, wie kann ich nun alle Beträge addieren und in z.B. in einem Label die Gesamtsumme anzeigen lassen?

[mkinzler]

Manuell durchgehen, Werte auslesen, addieren, ausgeben.

[DeddyH]

Wenn die Werte im ersten SubItem stehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, gesamt: integer;
begin
  gesamt := 0 ;
  for i := 0 to ListView1.Items.Count - 1 do
    inc(gesamt, StrToInt(ListView1.Items[i].SubItems[0]));
  Label1.Caption := IntToStr(gesamt);
end;

[iron]

Danke Euch beiden für die Antwort.

Nur möcht ich Beträge zusammenrechnen, d.h. ich muss eine Kommazahl addieren(hätt ich ja auch vorher angeben können, schäm). Das mit dem Code ist schon Klasse nur wie muss ich den mit StrToFloat verwenden?

[mkinzler]

Einfache Lösung: StrToFloat statt StrToInt. Besser natürlich TryStrToFloat oder Val

[iron]

Zitat von mkinzler:

Einfache Lösung: StrToFloat statt StrToInt. Besser natürlich TryStrToFloat oder Val

Ja danke aber das hab ich mir schon gedacht und habe es versucht, nur komm ich mit der zusammenstellung im Code nicht klar. Ich weis deine bemühungen trotzdem zu schätzen.

hab jetz schon ne menge probiert, aber immer beklagt er sich z.B. bei

inc(gesamt, StrToFloat(ListView1.Items[i].SubItems[0])); das er der linken Seite nicht zuweisen kann.

Wo liegt nur mein Fehler.

Und was ist eigendlich der unterschied zwischen StrToFloat und TryStrToFloat

[mkinzler]

gesamt := gesamt + StrToFloat(ListView1.Items[i].SubItems[0]); StrToFloat liefert eine Exception, wenn die Konvertierung nicht funktioniert. TryStrToFloat gibt dann nur false zurück.

[DeddyH]

Zum Unterschied kannst Du die Hilfe bemühen .Und zu der Fehlermeldung: ändere die Zeileinc(gesamt, StrToFloat(ListView1.Items[i].SubItems[0])); mal ab ingesamt := gesamt + StrToFloat(ListView1.Items[i].SubItems[0]); Oder eben TryStrToFloat *gg*

[edit] Mal wieder zu spät [/edit]

[iron]

Ohhhhhh gott ich beiß mir in den Schliessmuskel, ich bedanke mich rechtherzlich für Eure geduld.

[Gehstock]

Ich häng mich mal rein weil ich ein Ähnliches Problem Hab

ich Habe im Listview bei Items[0] die Checkboxen
in Items[2] einen Preis

wenn ich die Checkboxen aktiviere dann soll in einem Editfeld die preise Addiert werden


ich versuch das grad so

Delphi-Quellcode:

procedure TForm4.ListView1Click(Sender: TObject);
begin
if Listview1.Items[0].Checked then
   Edit1.Text := InttoStr(StrtoInt(Edit1.Text) + StrtoInt(Listview1.items[2].Caption))
    else
     Edit1.Text := InttoStr(StrtoInt(Edit1.Text) - StrtoInt(Listview1.items[2].Caption));
end;