[Pascal] run time error... [Trouvé - Close]

k o D · 31 Mai 2004

J'ai trouvé le problème... on peut fermer ce post.

k o D · 31 Mai 2004

Hum... c'est bon j'ai trouvé, j'ai du imprimer mes feuilles pour voir les erreurs.

Elles se situaient ici:

Code:

 if (grille2[x-1,y]&lt;>0) or (grille2[x+1,y]&lt;>0) or (grille2[x-1,y]&lt;>2) or (grille2[x+1,y]&lt;>2) then
           begin
           u:=0;           
           while grille2[x+u,y]=3 do u:=u+1;
           if grille2[x+u,y]=1 then couler:=false;
           v:=0;          ******ICI -> j'avais mis u:=0*******
           while grille2[x-v,y]=3 do v:=v+1;
           if grille2[x-v,y]=1 then couler:=false;
           end;
        if (grille2[x,y-1]&lt;>0) or (grille2[x,y+1]&lt;>0) or (grille2[x,y-1]&lt;>2) or (grille2[x,y+1]&lt;>2) then
           begin
           u:=0;
           while grille2[x,y+u]=3 do u:=u+1;
           if grille2[x,y+u]=1 then couler:=false;
           v:=0;         ******ICI -> j'avais mis u:=0*******
           while grille2[x,y-v]=3 do v:=v+1;
           if grille2[x,y-v]=1 then couler:=false;
           end;

Enfin voilà désolé pour ce post inutile...

[Pascal] run time error... [Trouvé - Close]

k o D

Elite

k o D

Elite

Autres sujets récents