[Débutant] Utiliser Case of avec Readkey

Je veux réaliser un programme dont les traitements dépendent d'une entrée de choix.
La fonction CASE fait ça mais il faut valider le choix par la touche enter et moi je veux que l'exécution démarre en parallèle avec la touche.
Je l'ai déjà réalisé il y a 5 ans mais j'ai tout oublié.
Merci.

Qu' entends-tu par "l'execition demare en paralle avec la touche" ?
si tu veux que l'utilisateur n' appuie pas sur ENTER pour valider son choix, la meilleur solution serait de lire la touche appuyé avec readkey.
Ex:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

program test; var tch :char; begin writeln('taper une touche :'); repeat tch:=readkey; case tch of 'a', 'A' : writeln(' executer le traitement A'); 'b', 'B' : writeln('executer le traitement B'); end; until (tch='q') or (tch='Q'); end.

---

Bonjour,
tu peux faire ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Var Cmd :char; Sortie :boolean; Begin   Repeat writeln('1 : action 1 '.....); Cmd:=Readkey; Case Ord(Cmd) of 65 : ....   until Sortie;

---

Cordialement,

Qai,

Regarde du côté de ReadKey.

ps : case ... of n'est pas une fonction, mais une instruction. :)

Bonjour
3 messages postés à la même minutes.:king:
Je crois que avec ça il devrait s'en tirer :)

Cordialement

merci pour vos repences tous
la solution c'est readkey, je l'ai deja utlise mais j'ai tout oublie
merci encore

Citation:

---

Envoyé par krachik

Bonjour
3 messages postés à la même minutes.
Je crois que avec ça il devrait s'en tirer

Cordialement

---

je crois qu'un record a été battu sur developpez :D faut enregistrer ça sur quelques chose :lol:
Cordialement,