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])); Edit9.Text:= FloatToStrF(n1, ffNumber, 20, 2);
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.