sumando valores de un listview

[danielmj]

Hola, buenos dias a todos

Estoy intentando sumar el contenido de una columna dada de un listview, pero me tira el siguiente error:

[dcc64 Error] datos.pas(147): E2250 There is no overloaded version of 'FloatToStr' that can be called with these arguments

Mi código es este:

Código Delphi [-]
...
for i:= 0 to lista.Items.Count -1 do
        total:= total + (FloatToStr(lista.Items[9].Caption));
...

Luego de probar varias cosas, aquí en el foro encontre este hilo supongo que no es algo muy complicado, pero no sé por qué a mi me da error.
¿alguna sugerencia? Por cierto, la variable total está definida como "extended"

Gracias y saludos.

[ecfisa]

Hola danielmj.

Empezado por danielmj

...
Estoy intentando sumar el contenido de una columna dada de un listview, pero me tira el siguiente error:

...

Ese error se produce por que estas intentando convertir una cadena a número flotante con la función FloatToStr cuyo trabajo es precisamente el inverso. La función indicada para ese caso es StrToFloat.

Saludos

[danielmj]

Hola ecfisa, es cierto, después de enviar el post me di cuenta y lo cambié pero ahora después de cambiarlo me encuentro con esto:



El código lo cambié a esto (y la variable total la cambie de extended a real):

Código Delphi [-]
...
      for i:= 0 to lista.Items.Count -1 do
        begin
          total:= total + (StrToFloat(lista.Items[9].Caption));
          rForm.Label35.Caption:= FloatToStr(total);
        end;
...

Y si en cambio la variable la sigo definiendo como "extended", me tira este otro error:



Si en ese dialogo pulso sobre "break" me marca la siguiente linea:


Así que he pasado de un error por descuido a otro sobre el que no tengo ni idea ni control (siendo honesto) y obviamente no sé muy bien como solucionarlo.
Un saludo y gracias por tu tiempo.

[ecfisa]

Hola danielmj.

Revisa que exista el índice 9 (lista.Items[9].Caption).

Saludos

[danielmj]

Hola de nuevo ecfisa,

Mira la captura del listview con su distribución de columnas sería esta:


El codigo es este:

Código Delphi [-]
for i:= 0 to lista.Items.Count -1 do
begin
     total:= total + (StrToFloat(lista.Items.Item[10].Caption ));
     Label35.Caption:= FloatToStr(total);
end;

Me estaba liando con el indice, no contaba con la columna 0 que no se ve por eso de tener el width a 0. En lugar de poner 10, usaba el indice 9.
A parte de eso, lo unico que he cambiado es que esta parte del codigo ahora se inicia en el oncreate del formulario. He hecho estos cambios y ya no tira ningun error, eso si, sigue sin sumarme nada. Ahora me pondre con eso para que sume todas las cantidades.

Gracias y un saludo.

[Casimiro Notevi]

Código Delphi [-]
for i:= 0 to lista.Items.Count -1 do
begin
     total:= total + (StrToFloat(lista.Items.Item[ i ].Caption ));
     Label35.Caption:= FloatToStr(total);
end;