Erreur : "" n'est pas une valeur entière valide [Résolu/Fermé]

Signaler
Messages postés
26
Date d'inscription
vendredi 24 février 2017
Statut
Membre
Dernière intervention
23 mars 2017
-
 Profil bloqué -
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;



1 réponse


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);