sumando valores de un listview

[ecfisa]

Hola Daniel.

Es que el índice debería ser

Código Delphi [-]
...
  total:= total + StrToFloat(li.SubItems[Lista.Columns.Count-2]);

O dicho de otro modo: Count - 1 - columna 0 (que no usas) , es decir que no sería 9 sino 8.

Saludos

[danielmj]

Hola ecfisa, he probado a poner ".columns.count -2" pero entonces pasa esto:



Asi que, sigo igual, sin poder sumar nada.

Un saludo y gracias por tu tiempo.

[ecfisa]

Hola Daniel.

Acabo de mirar el video, fijate que la constante MAXITEM es un valor arbitrario que usé solo para el ejemplo.

En el video que mostras intenta recorrer diez items cuando sólo hay dos ingresados, deberías usar:

Código Delphi [-]
var
  i: Integer;
  total: Double;
  li: TListItem;
begin
  total:= 0;
  for i:= 0 to ListView1.Items.Count-1 do // (MAXITEM no)
  begin
    li:= ListView1.Items.Item[i];
    total:= total + StrToFloat(li.SubItems[ListView1.Columns.Count-2]);
  end;
  ShowMessage(FormatFloat('0.00', total));
end;

Saludos

[TiammatMX]

No veo dónde está la complicación..., si en lugar de sumar EL CONTENIDO del TListView en ése momento, sumaras LOS DATOS QUE COMPONEN el TListView mientras lo llenas antes de mostrarlo...

Cuestión de pensar lateralmente para resolver un problema...

[danielmj]

Hola ecfisa

muchas gracias!!!! por que no está aquí el icono ese de la cabeza dandose golpes con el pc, sino lo pondría. Por fin ha funcionado, solo he tenido que poner "-3" en el .columns.count para hacer referencia a la columna que guarda las cantidades.
Debo reconocer, que estaba enfrascado en el "lista.items.count" y no le hacia caso al "columns.count" ese tambien ha sido un error por mi parte.

Ahora tengo una pelea nueva con el boton "volver atras" que cuando me lleva de regreso al formulario anterior, limpia la lista y cuando regreso, solo tengo el ultimo elemento añadido, pero bueno eso no me preocupa, en comparacion es un mal menor, que espero resolver pronto.

Muchas gracias otra vez, tanto a ti como a casimiro y a todos los que han prestado su ayuda.
Un saludo.

[danielmj]

Hola tiammat,

Por cierto, te va lo sumerio y esas cosas? lo digo por tu nick

Bueno, tienes razon, pero mi nivel en delphi es bajito bajito, y hay soluciones que no se me ocurren como a otros con mas experiencia. Por ejemplo, ya me estoy peleando otra vez con la lista, por que ahora si elimino un elemento listado, lo normal es que se reste tambien del total a pagar, pues bien, ya me esta jorobando otra vez, con access violation y "list items out of bouns" o algo así

Código Delphi [-]
procedure TrForm.Eliminarseleccionado1Click(Sender: TObject);
var
  i: integer;

begin
  for i:= 0 to lista.Items.Count -1 do
    if lista.Items.Item[i].Selected then
      begin
        lista.Items.Item[i].Delete;
        plista.Items.Item[i].Delete;
        label35.Caption:= FloatToStr(StrToFloat(label35.Caption)-(StrToFloat(lista.Items.Item[i].SubItems[Lista.Columns.Count-3]))); //---> sé que el error está aquí ¿pero donde?
      end;
end;

Y bueno, en eso estoy ahora.
Un saludo.

[ecfisa]

Hola Daniel.

Seguramente este par de funciones te simplificarán la tarea:

Código Delphi [-]
// Devuelve la suma de la columna en cuestión
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;

// Borra items seleccionados ( MultiSelect = True )
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 [-]
// Mostrar total
procedure TForm1.btnTotalClick(Sender: TObject);
begin
  Label1.Caption:= FormatFloat('0.00', AmountTotal(ListView1));
end;

// Eliminar items seleccionados y seguido mostrar total
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

[danielmj]

hola ecfisa, acabo de mirarlo y de implementarlo, todo lo que ya tenia lo sigo conservando entre {} funciona pero creo que lo de la funcion es mas eficiente.
Solo tengo una duda, pero creo que se por donde van los tiros, me refiero a la variable "result" no la declaras en ningun sitio y no da error, por lo que supongo que delphi la crea automaticamente al iniciar la funcion y en este caso es double ¿es correcto?

Gracias y un saludo.