Programmation avec Delphi
kangouroux
Messages postés
580
Date d'inscription
Statut
Membre
Dernière intervention
-
andré -
andré -
Bonjour, je cherche a faire un calcule, afin d'afficher un résultat qui peut éventuellement contenir des virgule.
Cependant quand le résultat contien une virgule tel que 1,44 mon programme me renvoi 1 si c'est 12,546666 le programme me renvoi 12 !
Je joint la partit du code qui sert a faire le calcule:
procedure TForm2.calcul(Sender: TObject);
var
valeur:String;
resultat:Integer;
begin
valeur:=form1.Edit1.Text;
resultat:=(StrToInt(valeur)*12) div 100;
form2.Caption:=form1.caption;
showmessage(IntToStr(resultat));
end;
Merci d'avance pour vos réponses.
Cependant quand le résultat contien une virgule tel que 1,44 mon programme me renvoi 1 si c'est 12,546666 le programme me renvoi 12 !
Je joint la partit du code qui sert a faire le calcule:
procedure TForm2.calcul(Sender: TObject);
var
valeur:String;
resultat:Integer;
begin
valeur:=form1.Edit1.Text;
resultat:=(StrToInt(valeur)*12) div 100;
form2.Caption:=form1.caption;
showmessage(IntToStr(resultat));
end;
Merci d'avance pour vos réponses.
A voir également:
- Programmation avec Delphi
- Delphi 7 - Télécharger - Langages
- Application de programmation - Guide
- Bde delphi - Télécharger - Édition & Programmation
- Delphi 7 serial number - Forum Delphi
- Programmation envoi sms - Guide
(Je dis probablement car c'est le cas pour la plupart des langages informatiques, mais je ne me souviens pas pour delphi/pascal.)
Bonne chance