Listview

[nibufep]

Доброго дня!
имеется такой Listview:



идет вот первый столбик:

3/4
0/3
6/2
3/3
1/4

мне нужно сложить первые числы друг с другом и вторые, т.е. 3+0+6+3+1=13
и так же со вторыми 4+3+2+3+4=16 теперь эти числа нужно сложить между собою 13+16=29 теперь высчитать процент 13*100/29, и так сделать с каждым столбиком, вот как сделал я:

    re.Expression := '(.+?)/(.+?)';
    item := ListView1.Items.Add;
    item.Caption := '%';
    for a := 0 to 3 do
    begin
      all := 0;
      one := 0;
      two := 0;
      for b := 0 to ListView1.Items.Count - 2 do
      begin
        if re.Exec(ListView1.Items[b].Subitems[a]) then
        begin
          one := one + strtoint(re.Match[1]);
          two := two + strtoint(re.Match[2]);
        end;
      end;
      all := one + two;
      item.SubItems.Add(inttostr(Trunc(one * 100 / all)));
    end;

но считает правильно только первый столбик, не пойму что не так сделал

[phomm]

Навскидку перепутаны местами а и б переменные тут: re.Exec(ListView1.Items[b].Subitems[a])

[nibufep]

Сообщение от phomm

Навскидку перепутаны местами а и б переменные тут: re.Exec(ListView1.Items[b].Subitems[a])

нет, не в этом проблема

[Shouldercannon]

for b := 0 to ListView1.Items.Count - 2 do

Так и должно быть (- 2)?

[nibufep]

Сообщение от Shouldercannon

for b := 0 to ListView1.Items.Count - 2 do

Так и должно быть (- 2)?

Да. Проблема уже решена.