Bonjour,
Lorsque l'utilisateur tape une espace suivie d'une entrée, mon programme plante. Pour éviter cela, j'essaie de trouver une parade. Voici ce que j'ai trouvé :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 x := WhereX;
 y := WhereY;
 
 while entree[1] = ' ' do
 begin
       if (entree[1] = ' ') then
       begin
       entree := '';
       GotoXY(x,y);
       write('                                           ');
       GotoXY(x,y);
       readln(entree);
       end;
 end;
Ca marche bien, mais je sens bien que c'est du bricolage. Y a-t-il mieux ?

D'autre part, pour effacer l'éventuelle entrée de l'utilisateur j'ai utilisé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
write('                                                     ');
parce que DelLine; ne fonctionne pas avec WinCRT. Qu'y a-t-il de plus élégant ?

Merci de vos conseils.