Ver originales (Francés)

Error: "" no es un valor entero válido

Resuelto
JordanP31 Mensajes publicados 26 Fecha de registro   Estado Miembro Última intervención   -  
 Perfil bloqueado -
Bonjour,

He hecho un pequeño fragmento de código en Delphi y aparece un error: Clase de excepción EConvertError con un mensaje "" no es un valor entero válido.

¿Una solución?

Mi código: 
procedure TForm1.bnSP98Click(Sender: TObject); var prixSP98: extended; quantite: extended; prixTotal: extended; begin; prixSP98 := 1.25; quantite := StrToInt(edQuantite.Text); prixTotal := StrToInt(edPrix.Text); prixTotal := quantite * prixSP98; edPrix.Text := FloatToStr(prixTotal); end;


Configuración: Configuración: Windows / Firefox 52.0

1 respuesta

  1. Perfil bloqueado
     
    1- Evita el tipo Extended, contenta te con el tipo Double

    2- Si la variable Cantidad recibe objetos indivisibles, es mejor declararla de tipo entero Integer, de ahí el error en esta línea: cantidad := StrToInt(edCantidad.Text); de lo contrario, el objeto pascal respeta la conversión de tipo, la función predefinida StrToInt() devuelve un entero mientras que Cantidad está declarada como variable flotante.

    Const precioSP98 := 1.25;
    var Cantidad : integer;
    PrecioTotal : Double;

    Cantidad : StrToInt();
    PrecioTotal := Cantidad * precioSP98;
    TextPrecio := FloatToStr(PrecioTotal);
    0