Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Suma de datos Float error (https://www.clubdelphi.com/foros/showthread.php?t=72689)

gdlrinfo 06-03-2011 15:02:01

Suma de datos Float error
 
Hola amigos tengo el siguiente problema necesito sumar dos numeros del siguiente formato 12.000.154,00 + 00.152.440,00 los datos los cargo en ese formato con un MaskEdit necesito que no me borre ningun cero despues de la suma pero me tira un error al hacer la suma el error is not valid floating point value

Código Delphi [-]
procedure TFPrincipal.Button2Click(Sender: TObject);
var
 n:real;
begin
  n:=0;
  datos.First;
  while datos.Eof=false do
    begin
      N:= n+strtofloat(datos.FieldValues['importe']);
      datos.Next;
      end;
    label29.Caption:=floattostr(n);

Desde ya muchas gracias espero su respuesta

rastafarey 06-03-2011 16:58:05

Resp
 
El error mas claro no puede estar. Te esta diciendo que que no es un valor flotante valido. pero tu cres estar seguroq que si. Si estas tan seguro que ese string contiene un numero flotante valido asegurate que no tenga los puntos de separador de miles y de no puseerlos entonces asegurate que la variable DECIMALSEPARATOR de delphi es la misma que contiene tu String.

gdlrinfo 07-03-2011 12:13:14

Hola
 
Muchisimas gracias por tu respuesta el tema es que ya mire la configuracion regional y puse todo como debe ir pero no le encuentro la vuelta para que no tire el error desde ya muchas gracias
Cita:

Empezado por rastafarey (Mensaje 392754)
El error mas claro no puede estar. Te esta diciendo que que no es un valor flotante valido. pero tu cres estar seguroq que si. Si estas tan seguro que ese string contiene un numero flotante valido asegurate que no tenga los puntos de separador de miles y de no puseerlos entonces asegurate que la variable DECIMALSEPARATOR de delphi es la misma que contiene tu String.


rastafarey 07-03-2011 12:52:59

resp
 
Papa te puedo asegurar que el avlor esta mal. o quisas sea el maskedit que estas guardando el caracter literal.

D¿e que tipo es la variable datos? el tipo de objeto

datos.FieldValues['importe']

pon esto estu codigo un momento y ve que valor imprime.

caprion := datos.FieldValues['importe'];
recuerda que 1234,66 no es valido para delphi debes usar1234.66

gdlrinfo 08-03-2011 17:29:34

Hola
 
Amigazo muchas gracias por tu ayuda ya lo pude solucionar el problema es que en el mask edit yo estaba usando 00.000.000.00 y la forma era 00.000.000,00 muchas gracias por tu ayuda me sirvio mucho un abrazo


La franja horaria es GMT +2. Ahora son las 18:03:02.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi