sumowanie kolumny treeview

Hej :)

Mam 3 kolumny w ListView : imie, nazwisko, kwota, i xxxxx pozyci - wie ktoś może jak zsumować wszystkie wartości z kolumny kwota??

Petla np. i dodajesz wczytane kwoty

for I := 0 to IloscWpisow - 1 do
begin
  {...}
end;

Jeśli kwota to liczba całkowita to:

Var Suma,I:Integer;
begin
  Suma:=0;
  For I:=0 To ListView1.Items.Count-1 Do Inc(Suma,StrToInt(ListView1.Items[I].Subitems[1]));
end;

nie działą :/

[Error] fakt.pas(295): Left side cannot be assigned to

od tąd krzyczy : ,StrToInt(ListView1.Items[...

U mnie działa.

a dlaczego to jest nie dozwolone:
for I:=0 to ListView1.Items.Count-1 do Inc(Suma,StrTocurr(ListView1.Items[I].Subitems[6]));

??

bo mam liczby z przecinkiem i to co mi teraz napisałeś się wywala :/

no to zrób:

var Suma:single;
  I:Integer;
begin
  Suma:=0;
  for I:=0 to ListView1.Items.Count-1 do
  Suma:=suma+StrToFloat(ListView1.Items[I].Subitems[1]));
end;

działa , dzięki WIELKIE :)

ps. jak zaokrąglić te liczby do 2 miejsc po przecinku?? ;)

copy(..,..) - tak??

pozdrawiam, North :)