Discussion :

[gsmdu62]

j'ai un petit soucis de conversion.
j'ai une valeur que je recupere en "string" via une variable
cette valeur est obligatoirement un chiffre decimal (exemple une temperature genre 37.5)
ce chiffre decimal doit etre convertis en integer

j'ai essayer StrToInt, mais ça marche pas !
egalement TryStrToInt pareil !

[Pascal Jankowski]

Si de 37.5 tu désires récupérer 37 ou 38 (resp. troncature ou arrondi), pour cela il te suffit de le transformer déjà en nombre réél puis de le transformer en entier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
ton_entier  := trunc(strToFloat(ta_chaine)); //troncature
//ou encore
ton_entier := round(strToFloat(ta_chaine)); //arrondi

Cordialement

[cadetill]

Pour completer, dans l'unité math tu as aussi

• RoundTo
• SingleRoundTo
• Floor
• Ceil

[gsmdu62]

je pense que je me suis mal fait comprendre !

pour etre plus clair:
l'utilisateur peut entrer une temperature (exemple 35, 25 etc .....)
ça marche sans probleme, mais si jamais il entre 37,7, 45,8 ça plante !
en fait l'appli ne supporte pas les virgules ou points !

les données sont entrée sur une chaine string pour differentes raisons mais je les recuperes en Integer !

donc comment convertir par exemple:
edit1.string en integer mais avec des virgules ?

quand je tape ma ligne de commande, il me demande un resultat format 'Double' je ne sais pas ce que c'est !

[denokan]

c'est tout simplement impossible : un entier (Integer) n'as par définition pas de chiffre après la virgule !
donc
- soit tu tronques ou arrondit ou ce que tu veux pour obtenir un nombre entier
- soit tu convertit en nombre réèl (Single ou Double)

[gsmdu62]

et comment est ce que l'on convertis en "double" ?

est ce la fonction StrToFloat()

apparement cela fonctionne, si l'utilisateur entre par exemple 35,8 cela passe !
par contre quand il entre 35.8 ça plante !

peut ont empecher la saisie d'un point ? ou forcer la virgule ?

[sjrd]

et comment est ce que l'on convertis en "double" ?

est ce la fonction StrToFloat()

C'est cela même

apparement cela fonctionne, si l'utilisateur entre par exemple 35,8 cela passe !
par contre quand il entre 35.8 ça plante !

C'est normal, cela dépend de la valeur de la variable DecimalSeparator (ou qqch du genre).

peut ont empecher la saisie d'un point ? ou forcer la virgule ?

Oui, dans OnKeyPress, tu peux mettre ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if Key in ['.', ','] then
  Key := DecimalSeparator;

[cadetill]

Salut

Ça c'est dangereux (il peut mettre quelque chose comme ça: 5.5.5), mais tu peux faire quelque chose comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
var
  str: string;
  dob: Double;
begin
  str := Edit1.Text;
  if pos('.', str) <> 0 then
    str[pos('.', str)] := ',';
  dob := StrToFloat(str);

A+

[Bejaia-In]

Et si tu aller dans les "Options régionales et linguistiques" du panneau de configuration et dans les options régionales, tu trouveras un bouton "Personnaliser..." et dans la boite de dialogue qui apparait tu change la propriété "Symbole décimal" de "," par un "." et c'est tout.

[gsmdu62]

Merci a vous tous pour les reponses !
Donc:

la reponse donnée:

Et si tu aller dans les "Options régionales et linguistiques" du panneau de configuration et dans les options régionales, tu trouveras un bouton "Personnaliser..." et dans la boite de dialogue qui apparait tu change la propriété "Symbole décimal" de "," par un "." et c'est tout

C'est effectivement une solution, mais je ne me vois pas dire aux personnes qui utilisent le soft (famille) d'aller bidouiller dans le panneaux de config hors que Cadetill & sjrd ont donnés des solutions performantes !

c'est gentils a vous tous, merci !

[denokan]

Certes mais il est parfois peu aisé (ou apprécié) de faire cette manipulation sur les postes de tes clients