Discussion :

[bertden59]

Bonjour,

J'essaie dans une boucle de saisir 3 chaînes. Après la saisie du premier mot, le programme s'arrête, et les saisies suivantes son impossibles.

Voici mon code :

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
16
17
18
19
20
program Exo_26a;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
  var
  i : integer;
   motPropose : array[1..3] of string;
 
begin
  { TODO -oUser -cConsole Main : placez le code ici }
  for i:=1 to 3 do
  begin
  write('Entrez un mot - Essai '+inttostr(i)+ ' : ');
  read(motPropose[i]);
  write(chr(10));
  end;
end.

Merci de votre aide !

[Nono40]

Tu devrais utiliser ReadLn au lieu de Read afin que la saisie soit réellement validée par la touche ENTER.

[ShaiLeTroll]

De la Console , on apprend encore ça ?
getc du C que de souvenir !

Pense à la section Pascal, il y aura plus d'expert en mode Console que dans la section Delphi (ici)
99% des membres dont moi, n'ont fait que du mode GDI VCL !

System.Read

Read lit tous les caractères jusqu'au marqueur suivant de fin de ligne (non compris) ou jusqu'à ce que Eof(F) passe à true ;

Normalement semble qu'il fasse comme ReadLn !
Attention l'espace ou tab sont gérés aussi (c'est lorsque l'on mets plusieurs paramètres dans Read)
Veille comme le précise Nono40 a appuyer sur ENTER pour valider la ligne que Read\ReadLn puisse savoir quand s'arrêter !

bertden59, peux-tu être plus précis sur le comportement ?
S'arrête ?
Il se bloque ? il refuse d'autres caractères
L'écran Console se ferme sans avoir écrit les deux autres 'Entrez un mot...' ?

Pense à lancer hors du débogage, via un CMD (et non en lançant par double-clic)