Contrôler les entrées utilisateur

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.

Bonjour !

La fonction ReadKey renvoie un seul caractère. ;)

Merci pour votre réponse. Comment utiliser Readkey ?

Voici mon code :

Code:

---

1 2 3 4 5 6

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

---

;

Fio,

Citation:

---

Envoyé par dimi2

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:

---

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.

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

Code:

---

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.

Fio,

Citation:

---

Envoyé par dimi2

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

Code:

---

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. :)

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8

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

---

Il reste un petit problème : il faut taper la lettre 2 fois avant qu'elle ne s'affiche. Est-ce que j'ai fait une erreur dans ce code ?

Merci de votre patience...

Tu fais un ReadLn après le ReadKey, d'où deux lectures. :)
Pour afficher le caractère, utilise plutôt Write ou WriteLn.

Tu peux trouver de nombreux exemples d'utilisation de ReadKey sur ce forum, en faisant une recherche.
En voici un parmi d'autres : http://www.developpez.net/forums/sho...d.php?t=331820

;)

Merci pour votre aide et vos conseils. Le petit problème de la double-entrée de la lettre est résolue par l'emploi de Writeln. Excusez-moi si j'ai abusé de votre patience, je ne suis pas très doué. Je vais visiter les liens que vous proposez. Je vous souhaite une bonne nuit.