Hola Daniel.
Seguramente este par de funciones te simplificarán la tarea:
Código Delphi
[-]
function AmountTotal(LV: TListView): Double;
var
i: Integer;
li: TListItem;
begin
Result:= 0;
for i:= LV.Items.Count-1 downto 0 do
begin
li:= LV.Items.Item[i];
Result:= Result + StrToFloat(li.SubItems[LV.Columns.Count-2]);
end;
end;
procedure DelSelectedItems(LV: TListView);
var
i: Integer;
begin
for i:= LV.Items.Count-1 downto 0 do
if LV.Items[i].Selected then
LV.Selected.Delete
end;
El uso:
Código Delphi
[-]
procedure TForm1.btnTotalClick(Sender: TObject);
begin
Label1.Caption:= FormatFloat('0.00', AmountTotal(ListView1));
end;
procedure TForm1.btnDeleteClick(Sender: TObject);
begin
DelSelectedItems(ListView1);
Label1.Caption:= FormatFloat('0.00', AmountTotal(ListView1));
end;
Por si tenes dificultad para implementarlas te adjunto un ejemplo funcional.
Saludos