[LG] Gérer les erreurs de frappe

Version imprimable

12/02/2006, 21h13
newdelirium

[LG] Gérer les erreurs de frappe

Bonjour, j'ai fait un programme en pascal où je demande à l'utilisateur d'entrer des nombres mais le probléme est que lorsque l'utilisateur entre des lettres, le programme plante (normal mais bon). Je voudrais savoir s'il est possible de détecter le type de donnée que l'utilisateur rentre pour pouvoir lui reposer la question lorsqu'il se trompe. Merci.
12/02/2006, 23h25
M.Dlb

Une technique assez simple est de récupérer en premier un chaîne de caractères de type string, puis d'essayer de convertir cette string en nombre entier, avec val (qui permet de détecter les erreurs)

vous pouvez réaliser des procédures de saisie controlée avec pour
base, la fonction READKEY

Ainsi la procédure saisisnum n'accepte que des chiffres (entre 2 et 8
pour l'exemple)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
program tsaisie;
uses crt,sysutils;
var chaine : string;
procedure saisisnum (var sai : string; min,max : integer);
var c : char;
    l : integer = 0;
begin
     sai := '';
     while true do begin
        c := readkey;
        if (c =char(13)) and (l >= min) then break;
        if (c < '0') or (c > '9') then continue;
        write(c);
        sai := sai+c;
        l := l+1;
        if l >= max then break;
    end;
end;
begin
     saisisnum (chaine,2,8);
     writeln;
     writeln (chaine);
     readln;
end.

15/02/2006, 18h58
newdelirium

Citation:

Envoyé par wormful_sickfoot

Une technique assez simple est de récupérer en premier un chaîne de caractères de type string, puis d'essayer de convertir cette string en nombre entier, avec val (qui permet de détecter les erreurs)

Lorsqu'il y a convertion, il convertie de quelle maniére une chaine de caractére? Je veut dire si la variable est par exemple 'hihi', que va t'il me renvoyer?

Citation:
Envoyé par HRS
vous pouvez réaliser des procédures de saisie controlée avec pour
base, la fonction READKEY

Ainsi la procédure saisisnum n'accepte que des chiffres (entre 2 et 8
pour l'exemple)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 program tsaisie; uses crt,sysutils; var chaine : string; procedure saisisnum (var sai : string; min,max : integer); var c : char; l : integer = 0; begin sai := ''; while true do begin c := readkey; if (c =char(13)) and (l >= min) then break; if (c < '0') or (c > '9') then continue; write(c); sai := sai+c; l := l+1; if l >= max then break; end; end; begin saisisnum (chaine,2,8); writeln; writeln (chaine); readln; end.
Es qu'il est possible d'utiliser ta methode sans intervalle? Je veut dire en métant simplement si tel variable est de tel type?

15/02/2006, 19h01
Eric Sigoillot

Il va renvoyer ce qui est écrit dans l'aide : autrement dit la première ressource à consulter avant le forum.

:f1:

En plus on gagne du temps ;)

@++
18/02/2006, 17h55
newdelirium

C'est bon sa marche maintenant avec la methode du val merci.