Discussion :

[vladimire]

Bonjour;
bon, mon problème est le suivant :

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
21
22
23
24
25
26
{******************************* Readln_cara******************}

procedure lire_cara(n,x,y:byte;var s2:string);
var c:char;
BEGIN
     gotoxy(x,y);
     s2:='';
     repeat
           c:=readkey;
           case c of
                  'A'..'Z','a'..'z','Œ','ˆ','“','?','-','_',',','/','\','*','‚','Š','‡','&','^':
                  if length(s2)<n then begin
                  s2:=s2+c;
                  write(c);
               end;
                  chr(8):if length(s2)>0 then begin
                  s2:=copy(s2,1,length(s2)-1);
                  gotoxy(wherex-1,wherey);
                  write(' ');
                  gotoxy(wherex-1,wherey);
               end;
                   chr(0):c:=readkey;
               end;
     until ( c = chr(13) ) and ( length (s2) > 0);

END;

Je comprends bien toutes les étapes de cette procédure, même les autres bytes : X et Y, sauf la n .....
Des explications seront les bienvenues

[fomazou]

Le n est probablement comme condition de test il est passé en paramètre et contien certainement une valeur.
si la longueur de la chaine s2 est sup on fait les instructions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
s2:=s2+c;
write(c);

c'est pas trop compliqué

[vladimire]

oué, tout à fait raison, ca teste sur le la longuer du caractere tappé..
je l'avais compris juste apres avoir poster le sujet....
je crois que c'est resolu