Ver Mensaje Individual
  #12  
Antiguo 11-06-2018
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.732
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Verifica qué es lo que estás convirtiendo de texto a número.
Por ejemplo mostrando qué vas a convertir mediante ShowMessage.
Código Delphi [-]
  tp.text := FloatToStr(tpgs); 
  ShowMessage('Voy a convertir >' + cotiza.text + '< a Float');
  cot := StrToFloat(cotiza.text); // <--- Seguramente esta es la línea que falla.

Por otro lado, el mensaje de error completo y sin traducir te dice qué es lo que no puede convertir:

Cita:
'' is not a valid floating point value.
Nota las comillas delante de la frase, que se traduce como
'' no es un valor numérico válido.

Seguramente la cotiza.text es una cadena vacía.

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
begin
[...]
  // Esto debería inicializarse como '0' o '0.00'.
  // También habría que validar que solo entren números, "-" y ",".
  cotiza.Text := ' ';
  // También para otros Edits que luego se convertirán mediante StrToFloat
[...]

Última edición por duilioisola fecha: 11-06-2018 a las 20:00:47.
Responder Con Cita