Sumar un campo al ser checkeado en un ListView

[Avellas]

Hola amisog del club delphi.


Mi pregunta es la siguiente, tengo un componente listview donde coloco la informacion que tragio de un query; igualmente en el listview tengo un campo check y lo que deseo hacer es que al checkear un item el sistema vaya sumando el valor de una columna del lisview.


Les agradezco de antemano la ayuda

Gracias

[jhonny]

Hice la siguiente prueba y me a funcionado bien... espero que sea eso lo que necesitas :

Código Delphi [-]
var
  i :Integer;
  Acumulado :Extended;
begin
  Acumulado := 0;
  for i := 0 to ListView1.Items.Count -1 do
  begin
    if ListView1.Items[i].Checked then
    begin
      Acumulado :=  Acumulado + StrToFloat(ListView1.Items[i].Caption);
    end;
  end;
  ShowMessage(FloatToStr(Acumulado));
end;

[Avellas]

Gracias.. por la colaboración.

Pero resulta que la idea es que al checkear el campo inmediatamente totalice, no al Final

[jhonny]

Empezado por Avellas

Gracias.. por la colaboración.

Pero resulta que la idea es que al checkear el campo inmediatamente totalice, no al Final

Bueno, pues puedes adaptar el procedimiento que te mostre en el evento correspondiente, por ejemplo en el OnChange, asi:

Código Delphi [-]
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
var
  i :Integer;
  Acumulado :Extended;
begin
  Acumulado := 0;
  for i := 0 to ListView1.Items.Count -1 do
  begin
    if ListView1.Items[i].Checked then
    begin
      Acumulado :=  Acumulado + StrToFloat(ListView1.Items[i].Caption);
    end;
  end;
  Label1.Caption := FloatToStr((Acumulado));
end;

Ese evento se ejecutara varias veces pero visualmente parece lo que necesitamos, si encuentras uno que se ejecute menos veces, pues sería interesante que nos lo mostraras.