Discussion :

[dimi2]

Bonsoir,
Je voudrais contrôler les entrées des utilisateurs en limitant celles-ci à un caractère chacune. Chacune de ces entrées introduit un caractère alphabétique dans un tableau. Comment faire pour que l'utilisateur ne puisse taper au clavier plus d'une lettre ?
Je vous remercie.

[Alcatîz]

Bonjour !

La fonction ReadKey renvoie un seul caractère.

[dimi2]

Merci pour votre réponse. Comment utiliser Readkey ?

Voici mon code :

Code :

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

1
2
3
4
5
6
 
i := 1 ;
for i := 1 to 8 do
    begin
    write('Lettre ',i, ': ');
    readln(tablo[i])

;

[droggo]

Fio,

Merci pour votre réponse. Comment utiliser Readkey ?

Voici mon code :

i := 1 ;
for i := 1 to 8 do
begin
write('Lettre ',i, ': ');
readln(tablo[i]);


J'ai fait une recherche de ce mot sur internet, je l'ai vu utilisé comme ça, mais cela amène une erreur :

i := 1 ;
for i := 1 to 8 do
begin
i := readKey;
write('Lettre ',i, ': ');
readln(tablo[i]);

On peut savoir où tu as trouvé ce code ? Si c'est sur un site web, n'y retourne jamais, on ne voit que rarement autant d'inepties en si peu de lignes.

Tu peux faire qualque chose comme ceci:

Code :

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

1
2
3
4
5
6
...
for i:=1 to 8 do
begin
  tablo[i] := ReadKey;
end;
...

ps : pense à encadrer ton code par les balises [ code] [ /code] (sans les espaces, qui ne sont là que pour les invalider.

[dimi2]

Je m'excuse de mon ignorance. J'ai essayé ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
i := 1 ;
for i := 1 to 8 do
    begin
    write('Lettre ',i, ': ');
    caractere := readKey;
    longueur := length(caractere);
    if (longueur > 1) then write('Entrez une seule lettre');
    readln(tablo[i]);

Ca marche mal. Parfois il faut taper deux fois la lettre pour qu'elle s'affiche.
D'autre part le message d'erreur ("Entrez une seule lettre") ne s'affiche pas lorsqu'il le faudrait.

Ce que je souhaiterais, c'est qu'il y ait impossibilité pour l'utilisateur d'entrer plus d'un caractère.

[droggo]

Fio,

Je m'excuse de mon ignorance. J'ai essayé ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
i := 1 ;
for i := 1 to 8 do
    begin
    write('Lettre ',i, ': ');
    caractere := readKey;
    longueur := length(caractere);
    if (longueur > 1) then write('Entrez une seule lettre');
    readln(tablo[i]);

Ca marche mal. Parfois il faut taper deux fois la lettre pour qu'elle s'affiche.
D'autre part le message d'erreur ("Entrez une seule lettre") ne s'affiche pas lorsqu'il le faudrait.

Ce que je souhaiterais, c'est qu'il y ait impossibilité pour l'utilisateur d'entrer plus d'un caractère.

ReadKey est ce que tu cherches, mais il faut quand même faire un petit effort pour voir comment ça fonctionne, et ne pas écrire du code au hasard. L'aide de ton compilateur est là pour ça.