Erreur : "" n'est pas une valeur entière valide

Résolu/Fermé

JordanP31 Messages postés 26 Date d'inscription vendredi 24 février 2017 Statut Membre Dernière intervention 23 mars 2017 - Modifié par Chris 94 le 17/03/2017 à 14:59
Profil bloqué - 17 mars 2017 à 20:19

Bonjour,

J'ai fait un petit bout de code sous Delphi et j'ai une erreur qui s'affiche : Classe d'exception EConvertError avec un message "" n'est pas une valeur entière valide.

Une solution ?

Mon code :

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;

A voir également:

Erreur : "" n'est pas une valeur entière valide
Erreur 0x80070643 - Guide
Erreur 10016 epson - Forum Imprimante
Erreur c2002 western union ✓ - Forum Vos droits sur internet
Erreur g030 - Forum Bbox Bouygues
Erreur 5000 france tv - Forum Lecteurs et supports vidéo

1 réponse

Réponse 1 / 1

Profil bloqué
17 mars 2017 à 20:19

1- Evite le type Extended, contente toi du type Double

2- Si la variable Quantite reçois des objets indivisibles, mieux vaut la déclarer de type entier Integer d'où l'erreur dans cette ligne : quantite := StrToInt(edQuantite.Text); sinon, le pascal objet respecte le transtypage de type, la fonction prédéfinie StrToInt() renvoie un entier alors que Quantite est déclarée variable flottante.

Const prixSP98 := 1.25;
var Quantite : integer;
PrixTotal : Double;

Quantite : StrToInt();
PrixTotal := Quantite * prixSP98;
TextPrix := FloatToStr(PrixTotal);

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Erreur de lecture sur iptv smarters

Problème de décodeur TV Bouygues Telecom

Discussions similaires

Newsletters