[Listview] Spalte zusammenrechnen???

[IceBube]

Hey!

Einfach die ListView durchgehen und die Zahlen addieren...

Delphi-Quellcode:

var
Gesamtpreis : Double;

function Berechne(ListView : TListView;Spalte : Integer) : Double;
var
 I : Integer;
begin
 //Gesamtpreis ausrechnen
 Result := 0;
 for I := 0 to ListView.Items.Count-1 do
  Result := Result + strToFloat( ListView.Items[I].SubItems[Spalte] );
end;


//Ausführen
procedure ();
begin
 Gesamtpreis := Berechne(ListView1, 0); //Die 2. Spalte
end;

lg