Ver Mensaje Individual
  #7  
Antiguo 12-05-2012
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.

No me genera ningún inconveniente.

Por ejemplo:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Suma,n1: Extended;
 i: integer;
 s: string;
 Sep: string[2];
begin
  Sep[1]:= ThousandSeparator;
  Sep[2]:= DecimalSeparator;
  DecimalSeparator:= '.';
  ThousandSeparator:= ',';
  Suma:= 0;
  for i:= 0 to Memo1.Lines.Count - 1 do
    suma := suma + StrToFloat(StringReplace(Memo1.Lines[i],',','',[rfIgnoreCase]));
  Edit1.Text:= FloatToStrF(suma, ffNumber, 20, 2);

  
  n1:= 3.1415926 * StrToFloat(StringReplace(Edit1.Text,',','',[rfIgnoreCase])); // Multiplicar
  Edit2.Text:= FloatToStrF(n1, ffNumber, 20, 2);  // Mostrar

  //...
  ThousandSeparator:= Sep[1];
  DecimalSeparator:= Sep[2];
end;

Saludos.

Edito: Por supuesto que, como menciona Casimiro, sin quitar previamente las comas no es posible.
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 12-05-2012 a las 00:43:09.
Responder Con Cita