Discussion :

[Steff2]

Bonjour,

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

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

[Bleys]

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

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

Code :

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

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

qui doit être remplacé par

Code :

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

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

a plus

[Steff2]

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.