Segue parte do código fonte de um form que criei para testar a solução.
type
TfrmPrincipal = class(TForm)
lvLista: TListView;
btnSoma: TButton;
procedure btnSomaClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmPrincipal: TfrmPrincipal;
implementation
{$R *.dfm}
procedure TfrmPrincipal.btnSomaClick(Sender: TObject);
var
dSoma : double;
i : integer;
begin
dSoma := 0;
for i := 0 to MyListView.Items.Count - 1 do begin
dSoma := dSoma + StrToFloatDef( MyListView.Items[ i ].Caption, 0 );
end;
ShowMessage( FloatToStr( dSoma ) );
end;
Testado em Delphi7.
O ".Caption" acessa o valor da primeira coluna.
Caso seja necessário acessar outras, deve ser utilizado ".SubItems[x]", lembrando que "x" é igual ao "número da coluna" menos 2.
Exemplos:
- A segunda coluna do ListView é o primeiro sub-iten e este tem índice
"0" (zero)
- A sétima coluna do ListView, seria acessado com ".SubItems[5]"