Discussion :

[Tyu38]

Bonjour,
après des recherches dans la faq et les tutos, je post sur le forum. Dans mon appli, je demande à l'utilisateur de rentrer un nombre pr le programme. Je fais un InputQuery. Ce nombre doit etre entre 0 et 50 donc je le test. Le problème, c'est que si il rentre une lettre, ca fait planter le prog. Le InputQuery rend un string donc je le converti en float pour le tester.
Ma question est simple : peut on bloquer la saisie des lettres ? Ou existe t-il une autre méthode pour tester la valeur entrée ?
Je vous met mon bout de code :

Code :

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

1
2
3
Repeat
InputQuery('Entrez une valeur','Quelle valeur ? (max 50)',nb);
Until ( (StrToFloat(nb)>=0) and (StrToFloat(nb)<=50) );

[bsdocuments]

Essaye plutôt d'ajouter cette fonction;

Code :

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

1
2
3
4
5
6
7
8
function CorrectNumber(Const nb:String):Boolean;
var i,L:Word;
begin L:=Length(nb); Result:=L>0;
 for i:=1 to L do 
 if not (nb[i] in [0..9]) 
   then Exit; // Sortir directement de la fonction..
 Result:=True
end;

puis ceci..

Code :

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

1
2
3
4
5
 
Repeat
InputQuery('Entrez une valeur','Quelle valeur ? (max 50)',nb);
// ajouter ceci,
Until (CorrectNumber(nb))and( (StrToFloat(nb)>=0) and (StrToFloat(nb)<=50) );

a+

[tourlourou]

Code :

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

1
2
3
4
5
6
7
8
repeat
  InputQuery('Entrez une valeur', 'Quelle valeur ? (de 0 à 50)', nb);
  try
    TheNb:=StrToFloat(nb);
  except // si erreur après le try, va dans la clause except
    TheNb:=-1;
  end;
until ( TheNb >= 0 ) and ( TheNb <= 50 );

mais si c'st un entier dont tu as besoin ;

Code :

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

1
2
3
4
repeat
  InputQuery('Entrez une valeur', 'Quelle valeur ? (de 0 à 50)', nb);
  TheInt:=StrToIntDef(nb, -1);
until TheInt in [0..50];

[Tyu38]

et ca marche (of course)
merci

[ero-sennin]

Un petit ?
A+