[TP] lire_char .. lire

[TP] lire_char .. lire_num

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

Code:

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 8-)

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:

1 2 s2:=s2+c; write(c);
c'est pas trop compliqué

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 :D