Discussion :

[escargot72]

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

[arthur57]

Ton code semble correct. Tu respecte la syntaxe et la structure. Es-tu sur que ton problème ne viens pas du fait que tu saisisse une chaîne trop longue ? Ta variable Nom est un shortstring.