Discussion :

[julio_097]

Bonjour,

Je voudrais savoir si il existe une fonction en Pascal permettant de controler si une valeur, qu'on affecte a une variable de type integer, est bien de type numérique (a l'instar de IsNuméric en VB), ceci dans le but d'éviter l'erreur du compilateur "invalid numéric format"
Merci ..

[Eric Sigoillot]

La vérification ne doit pas s'effectuer au moment du stockage dans la variable, mais en amont, juste après l'entrée de la valeur.

Il nous faudrait savoir quel compilateur tu utilises si tu veux plus de précisions.
Si tu te limites au Pascal ISO, alors il faut lire en entrée une chaîne de caractères et ensuite convertir en entier, cf la FAQ : http://pascal.developpez.com/faq/

@++

[julio_097]

je viens de lire la faq sur comment convertir une chaine en entier mais je ne crois que cela resoudra mon probleme. En faite si je veux pouvoir vérifier si le choix de l'utilisateur est de type numérique c'est parce que je lui propose un menu et il doit choisir entre 1 et 6 selon l'action qu'il veut éffectuer. Bien sur, si il tape sur un caractère, j'ai l'erreur du compilateur ..
J'utilise Turbo Pascal version 6.0 ..

[Eric Sigoillot]

Ce n'est pourtant pas compliqué...

Avec ReadKey :

Code :

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

1
2
3
4
5
6
7
8
 
var
  Ch: Char;
begin
  repeat
    Ch := ReadKey;
  until Ch in ['1'..'6'];
end;

Avec ReadLn :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
  S: string;
  i, e: Integer;
begin
  repeat
    ReadLn(S);
    Val(S, i, e);
  until (e = 0) and (i >= 1) and (i <= 6);
end;

@++