Ver Mensaje Individual
  #4  
Antiguo 19-05-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola rufo.

Lo que te sugiere Casimiro creo, es quitarlos para operar con ellos. No te altera para nada la muestra del resultado.
Supongamos (no lo especificas), que tu separador de miles es la coma y de decimales el punto.

Entonces sería:
Código Delphi [-]
procedure TForm1.Button9Click(Sender: TObject);
var
  aux: string;
  suma: Extended;
  v_conta: Integer;
  i: Integer;
begin
  DecimalSeparator:= '.';
  ThousandSeparator:= ',';
  suma := 0;
  for i := 0 to listbox14.Items.Count - 1 do
  begin
    aux:= ListBox14.Items[i];
    Delete(aux,Pos(',',aux),1);
    suma := suma + strToFloat(aux);
    Inc(v_conta);
  end;
  Label28.Caption := floatToStrF(suma,ffNumber,20,2);
end;
Fijate que la operación de borrado se hace sobre la variable auxiliar 'aux' y no afecta para nada el formato original.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 19-05-2011 a las 20:38:05.
Responder Con Cita