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

Discussion dans 'Web, design' créé par k o D, 31 Mai 2004.

Statut de la discussion:
Fermée.
  1. Offline
    k o D Belge !
    J'ai trouvé le problème... on peut fermer ce post.
    k o D, 31 Mai 2004
    #1
  2. Offline
    k o D Belge !
    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]<>0) or (grille2[x+1,y]<>0) or (grille2[x-1,y]<>2) or (grille2[x+1,y]<>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]<>0) or (grille2[x,y+1]<>0) or (grille2[x,y-1]<>2) or (grille2[x,y+1]<>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... :oops:
    k o D, 31 Mai 2004
    #2
Statut de la discussion:
Fermée.