In den ListView SubItems Beträge addieren

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