si edit1 <> [0..255] alors HELP

si edit1 <> [0..255] alors HELP - Delphi/Pascal - Programmation

Marsh Posté le 27-11-2002 à 13:39:33    

Hello,
J'aimerais savoir comment faire pour autoriser a mettre dans une edit que les valeur 0 à 255.
et que si c'est différent ca m'avertisse avec une valeur boolean false.
 
je pesne qu'il faut faire avec Array mais je sais pas trop comment.
 
Aider moi svp :)
 
Merci

Reply

Marsh Posté le 27-11-2002 à 13:39:33   

Reply

Marsh Posté le 27-11-2002 à 13:47:37    

La valeur entrée (nombre) dans l'edit ?
 
  PasBon := not (StrToIntDef(Edit1.Text, -1) in [0..255]);


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 27-11-2002 à 13:59:54    

ah oui ca marcher merci, mais tu saurais m'expliquer a koi sert le -1 ? et que veux dire le StrToIntDef
 
merci :)

Reply

Marsh Posté le 27-11-2002 à 14:16:14    

Si jamais Edit1.Text contient une chaîne invalide, StrToInt lance une exception. Pour ne pas devoir la gérer, on peut utiliser StrToIntDef, qui demande un second paramètre. Ce second paramètre est la valeur renvoyée par la fonction si jamais la chaîne donnée ne contient pas un nombre valide. Comme ici les bornes (0 à 255) sont connues et inférieures aux bornes d'un Integer, il suffit de passer une valeur hors de ces bornes comme second paramètre, donc j'ai mis -1, mais on aurait pu aussi mettre 256 ou -500, peu importe.


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed