Ver Mensaje Individual
  #1  
Antiguo 12-02-2016
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Reputación: 12
feliz-58 Va por buen camino
Post Error "No es un valor flotante Valido"

Saludos Club, traigo algo que es común pero que no logro entender (Soy novato ), 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
Responder Con Cita