Range check error.

Bonjour,

voici un truc bizarre
Je reçois une erreur "Range Stack Error"

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

procedure TForm1.Button4Click(Sender: TObject); var T : array[1..15,1..15] of string; L,c : byte; begin For C:=5 to 10 do T[7,C]:='A';   for L := 1 to 15 do begin For C := 1 to 15 do begin if T[l,c] <>'' then begin if L>1 then // Haut if T[L-1,C] = '' then T[L-1,C] := '?'; if L<15 then // Bas if T[L+1,C] = '' then T[L+1,C] := '?'; if C>1 then // Gauche if T[L,C-1] = '' then T[L,C-1] := '?'; if C>1 then // Droite if T[L,C+1] = '' then T[L,C+1] := '?'; <= error end; end;   end;

---

L contient quand l'erreur est généré L='','','','','','' // pas mal pour un byte

Salut,
D'abord : pense à mettre ton code ente les balises code : pour nous c'est plus clair et pour toi tu te feras pas taper sur les doigts :mouarf:

Ensuite je sais pas si c'est uen erreure à la copie où pas mais ton problème doit être ici :

Code:

---

1 2	if C>1 then // Droite if T[L,C+1] = '' then T[L,C+1] := '?'; <= error

---

qui doit être remplacé par

Code:

---

1 2	if C<15 then // Droite if T[L,C+1] = '' then T[L,C+1] := '?'; <= error

---

a plus ;)

Désolé pour les basiles. (je ne sais pas où elles sont mais je trouverai bien)

merci, l'erreur était bien celle-la.
Je ne devrai pas traailler toute la nuit, l'esprit n'est pas très clair.