Ver Mensaje Individual
  #1  
Antiguo 19-05-2011
rufo rufo is offline
Miembro
 
Registrado: jul 2006
Posts: 240
Reputación: 18
rufo Va por buen camino
Question sumar los valores de un listbox

Hola amigos aqui con una pequeña espinita que traigo, resulta que quiero sumar los valores de un listbox y que me los muestre en un label pero me manda el siguiente error "Is not a valid floating point value" en el cual los valores que tengo en el listbox son valores separados con la coma y el punto es decir son cifras miles entonces ya viendo en el foro no encontre algo certero ya cambie mi configuracion regional y sigue el mismo error entonces queria ver si me echan una manita de favor, les anexo el codigo
Código:
procedure TREPORTES.Button9Click(Sender: TObject);
var
suma: Extended;
v_conta:integer;
begin
suma := 0;
      for i := 0 to listbox14.Items.Count - 1 do
      suma := suma + strToFloat(listbox14.Items[i]);
      label28.Caption := floatToStrF(suma,ffNumber,20,2);
      v_conta:=v_conta+1;
end;
Les comento que uso delphi 2007 y un sistema operativo de windows 7, de antemano gracias.
Responder Con Cita