Bonjour

Dans un programme volumineux, j'appelle une procédure qui doit fournir un nom et des codes d'erreur.
Au 1er appel, rien. Si j'ajoute les deux lignes entre accolades, cela fonctionne normalement.
Pourriez-vous me renseigner ?

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
 
procedure QuelMot;
 
var Nom : ShortString;
    no : integer;
begin
  ClrScr;
  Nom:='//';
  repeat
{
   write(' no ? ');readln(no);
   writeln('no = ',no,' ',Nom);
}
    write('nouveau ? ');readln(Nom);
    writeln(Nom,'*');
  until (MessageBox(0,' Fin ? ','Test',MB_YESNO)=6);
end; { QuelMot }
En vous remerciant par avance.
Bernard