error cuando ingreso cantidad de 1 millon

[rufo]

Hola amigos de nuevo yo y no estoy repitiendo la misma pregunta pero es secuencia de lo que estado haciendo ayer y ahora me vino otro problemilla, resulta que estoy haciendo una factura y en un memo pongo al querer poner 1,000,000 me muestra el siguiente error.



Tambien les anexo el codigo que estoy usando para este programa que estoy haciendo para ver si me puede ayudar a decirme el porque el error. De antemano gracias.

Código Delphi [-]
procedure TFACTURA.Memo2Change(Sender: TObject);
var
 Suma,n1,n2: Extended;
 N,i: integer;
 Sep: string[2];
 SALIR : BOOLEAN;

begin
  SALIR:=FALSE;
  N := LENGTH(MEMO1.Text);
  REPEAT
    IF COPY(MEMO2.Text, N, 1) = ' ' THEN SALIR:=TRUE;
    N:=N-1;
  UNTIL (N<1) OR (SALIR=TRUE);

  ULTPALABRA := COPY(MEMO2.TEXT, N+1, LENGTH(MEMO2.TEXT)-N);

  Sep[1]:= ThousandSeparator;
  Sep[2]:= DecimalSeparator;
  DecimalSeparator:= '.';
  ThousandSeparator:= ',';
  Suma:= 0;
  for i:= 0 to Memo2.Lines.Count - 1 do
    suma := suma + StrToFloat(StringReplace(Memo2.Lines[i],',','',[rfIgnoreCase]));
  Edit8.Text:= FloatToStrF(suma, ffNumber, 20, 2);


  n1:=  0.16* StrToFloat(StringReplace(Edit8.Text,',','',[rfIgnoreCase])); // Multiplicar
  Edit9.Text:= FloatToStrF(n1, ffNumber, 20, 2);  // Mostrar

 n1:= StrToFloat(StringReplace(edit8.Text,',','',[rfIgnoreCase]));
 n2:= StrToFloat(stringReplace(edit9.Text,',','',[rfIgnoreCase]));
 edit10.Text:=FloatToStrF(n1+n2,ffNumber,20,2);

 label22.Caption:=CantidadEnLetra(StrtoFloat(stringReplace(edit10.Text,',','',[rfIgnoreCase])),1);
  //...
  ThousandSeparator:= Sep[1];
  DecimalSeparator:= Sep[2]

end;

Y este codigo siguiente lo pongo en Onkeypress

Código Delphi [-]
procedure TFACTURA.Memo2KeyPress(Sender: TObject; var Key: Char);
 begin
 IF (KEY = #13) AND (LABEL1.CAPTION <> '') THEN
  BEGIN
    KEY:=#0;
    MEMO2.TEXT := STRINGREPLACE(MEMO2.Text, TRIM(ULTPALABRA), FORMATFLOAT('##,##,##0.00',STRTOFLOAT(ULTPALABRA)), [RFREPLACEALL]);
    MEMO2.SelStart := LENGTH(MEMO2.TEXT);
  end;
end;

De lo cual fue codigo que me ayudaron en otro post para que el memo separara la cantidad en miles pero ahora implementarlo me aparece error ya que el memo realiza un calculo y al llegar a la cifra de un millon me manda el error que les comento, bueno espero que me ayuden o si pueden me digan donde la estoy regando y de antemano gracias.

[Casimiro Notevi]

¿Y el error?

[rufo]

Sorry le pongo el link del error http://tinypic.com/r/eeovr/6

[Casimiro Notevi]

Ya veo, el error es: '1000,' is not a valid floating point value.

[rufo]

si, ya que cuando empiezo a digitar mas de 6 fracciones me envia ese error.

[champy]

Creo que el error lo tienes en esta linea

Código Delphi [-]
suma := suma + StrToFloat(StringReplace(Memo2.Lines[i],',','',[rfIgnoreCase]));

Básicamente estás eliminando las comas para poder hacer el cambio de Str a Float, pero solamente eliminas la primera coma. Así que cuando hay más de 1 (1,000,000) te da el cascazo.

Ademas, el ignoreCase no tiene mucho sentido, nunca he visto una ',' en mayúsculas

prueba cambiando por

Código Delphi [-]
suma := suma + StrToFloat(StringReplace(Memo2.Lines[i],',','',[rfReplaceAll]));