Error "No es un valor flotante Valido"
 

Saludos Club, traigo algo que es común pero que no logro entender (Soy novato :p ), tengo este error pero no solo quiero que me expliquen como resolverlo sino porque ocurre para evitarlo en el futuro.

este es el código:

Código Delphi [-]
var
i : integer;
begin
   For i:=1 to SG.RowCount-1 do
      SubTotal := SubTotal + StrToFloat(SG.Cells[4,i]);

// Calculando el monto para cobrar el impuesto de ventas
   For i:=1 to SG.RowCount-1 do
      If SG.Cells[5,i] = 'Si' then Impuesto :=  Impuesto + StrToFloat(SG.Cells[4,i]);
 SubTotal := Round(SubTotal);
   Desc := (SubTotal * PorcDesc.Value / 100);
   Desc := Round(Desc);
   Impuesto := Impuesto * 0.18;
   Impuesto := Round(Impuesto);
   Total := (SubTotal - Desc + Impuesto);
   // escribe los valores en las celdas
   SGT.Cells[1,1] := Format('%8.2n',[desc]);
   SGT.Cells[1,2] := Format('%8.2n',[Impuesto]);
   SGT.Cells[1,0] := Format('%8.2n',[SubTotal]);
   SGT.Cells[1,3] := Format('%8.2n',[Total]);
end;

me da error cuando en el StringGrid tengo cantidades en Formato 1,234.00 por el asunto de la coma, como lo resuelvo y porque pasa?

Gracias

Buenos días.

El tema es que la cadena "1,234.00" no es un valor numérico válido. Sólo puede haber un punto decimal, sin comas ni apóstrofes. Es decir, que debería ser "1234.00" ó, dependiendo de la configuración e implementación, "1234,00".

ok, ahora como lo resuelvo? sin que cambien la presentación del numero al cliente.

:p :D ;)


De entrada, independientemente del "tema" para números, fechas y demás que tiene Winbugs, que diga, Windows, los números CON DECIMALES se expresan "999999999[.]9999", así que tu número debe ser expresado CON UN PUNTO separando los enteros de los decimales...

La plantilla de presentación depende directamente de la presentación numérica regional.

Hay varias maneras..

1. Las funciones para aplicar formato a strings siempre cuentan con una version sobrecargada (overloaded) que reciben un parametro adicional; un record de tipo TFormatSettings donde se especifica como se debe aplicar dicho formato

Ademas esta forma es thread-safe

2. Evidentemente, cuando no se usa la version sobrecargada, se emplea una variable FormatSettings, definida en System.SysUtils
Este record global es inicializado automaticamente por Delphi, y se carga con la informacion de la configuracion regional del sistema operativo. Asi que otra alternativa es modificar lo que tiene este registro global y todas las llamadas a las funciones ahora usaran la nueva configuracion.

Esta version no es thread-safe

Tambien existe una propiedad en el objeto Application, la UpdateFormatSettings
que es una bandera Booleana. Por defecto esta a True, y significa que tu aplicacion al recibir una notificacion de Windows cuando el usuario cambia la config. regional, actua en consecuencia y actualiza el registro FormatSettings global; si optas por esta opcion, podrias considerar dejar esta opcion a False

Esas son las 2 formas mas generales, rapidas y faciles de implementar


Por otro lado, leyendo tu codigo parece que estas manipulando valores monetarios. En ese caso desaconsejo el uso de los tipos float, real, double, single, extended. Lo mas adecuado es usar el tipo Currency, que es representado internamente como un entero y por lo tanto tenes mayor precision; los numeros en coma flotante no son exactos y puede dar lugar a algunos "problemillas"

Para convertir de tipo Currency a string y viceversa podes usar las funciones:

Código Delphi [-]
  CurrToStr(1234.56);
  CurrToStr(1234.56, RegistroTFormatSettings);

  CurrToStrF(1234.56, TFloatFormat, que es un tipo enumerado, cada uno representa un tipo distinto de formato);

Sobre esta ultima variante CurrToStrF podes ver aca ejemplos de uso y la salida

Saludos