Discussion :

[sebBastien]

Bonjour,

Depuis quelques jours, je rencontre le même problème, malgré mes aménagements de code, à la même ligne.

Mes variables Globales:

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
var
  Form1          : TForm1;
 
  coordsPionsNX  : array[1..16] of integer; // Coordonnées en X (left) des pions noir
  coordsPionsNY  : array[1..16] of integer; // Coordonnées en Y (top) des pions noir
  nomsPionsN     : array[1..16] of string;
 
  coordsPionsRX  : array[1..16] of integer; // Coordonnées en X (left) des pions rouge
  coordsPionsRY  : array[1..16] of integer;
  nomsPionsR     : array[1..16] of string;
 
  indexInitN     : integer = 1;
  indexInitR     : integer = 1;
 
  coordsCasesX   : array[1..64] of integer;
  coordsCasesY   : array[1..64] of integer;
  nomsCases      : array[1..64] of string;
 
  // Emplacement des pieces sur l'Echiquier : Il y a des cases ayant des Pieces Rouge - Noir - Vide
  emplacementPieces    : array[1..64] of string; 
 
  pionNSelectionner    : array[1..16] of boolean; // Tableau du pion Noir Sélectionner
  pionRSelectionner    : array[1..16] of boolean; // Tableau du pion Rouge Sélectionner
 
  // Cases sur lesquelles la pièce sélectionner peut être déplacer
  deplacementPieces    : array[1..64] of boolean;

.......
.......

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
 
// typePiece : roi, tour, fou, pion etc..
// posInTab : index 
procedure typeDeplacementPionN(typePiece : string; posInTab : integer);
var
   x                         : integer;    // variable pour les boucles
   yTop, yDown               : integer;    // variable pour l'incrémentation positive et négative
   continuer                 : boolean;   // permet de sortir du repeat
   compte, increment         : integer;   // fait un comptage - permet de sauter une ou des 'lignes' dans l'échiquier
 
   coordEnX                  : integer;  // Coordonnée X de la pièce sélectionner
   coordEnY                  : integer;  // Coordonnée Y de la pièce sélectionner
 
begin
    // Réinitialisation Du Tableau des Déplacements
    for x:= 1 to 64 do
    begin
      deplacementPieces[x]   := false;
    end;
 
    coordEnX                  := coordsPionsNX[posInTab];
    coordEnY                  := coordsPionsNY[posInTab];
 
 
 
    case typePiece of
       {UNE TOUR}
       'uneTour'   : begin
 
             increment := 48;   // Incrémente de 48 'pixel' (je ne connais pas l'unité dans Lazarus)
             compte    := 1;     // Effectue un comptage
             continuer := true; // Permet de sortir du repeat
             yTop        := 1;    // Variable qui s'incrémente positivement
 
             repeat
 
               // Lorsque COMPTE atteind <8>, INCREMENT permet l'ajout d'une ligne
               if compte > 8 then
               begin
                    compte       := 1;
                    increment    := increment + 48;
               end;
 
               // Si limite des Cases de L'Echéquier n'est pas Dépasser
               // Si les Coordonnées du Déplacement Correspond à une Case
               if (coordEnY + increment <= 392) and (coordEnY + increment = coordsCasesY[yTop]) and
                   (coordEnX + increment = coordsCasesX[yTop])  then
               begin
 
                    // Si à Cet Emplacement est Vide ou Contient une PieceRouge
                    if (emplacementPieces[yTop] = 'vide') or (emplacementPieces[yTop] = 'pieceRouge') then
                    begin
                         deplacementPieces[yTop] := true;
                         if emplacementPieces[yTop] = 'pieceRouge' then
                         continuer := false;
                    end
                    else
                    begin
                         continuer := false;
                    end; 
               end;
 
               yTop              := yTop + 1;
               compte            := compte + 1;
             until continuer = false;
    end; 
end;

L'exception à été signalé à la ligne

Code :

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

1
2
 if (coordEnY + increment <= 392) and (coordEnY + increment = coordsCasesY[yTop]) and
                   (coordEnX + increment = coordsCasesX[yTop])

Pourtant, mon code pour le déplacement du roi et du pion, UNE CASE, ne pose pas de problème.

[tourlourou]

Que vaut yTop au moment de l'exception ?

Si tu n'arrives pas à le voir, essaye de déboguer comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
try
  if (coordEnY + increment <= 392) and (coordEnY + increment = coordsCasesY[yTop]) and
                   (coordEnX + increment = coordsCasesX[yTop]) then
  begin
    //...
  end;
except 
  ShowMessage('Lors de l''exception, yTop vaut '+IntToStr(yTop));
end;

[sebBastien]

À moins que je n'ai pas correctement mis le Try

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
      'uneTour'   : begin
 
             increment := 48;
             compte    := 1;
             continuer := true;
             yTop      := 1;
             yDown     := 64;
 
             repeat
 
               // Lorsque COMPTE atteind <8>, INCREMENT permet l'ajout d'une ligne
               if compte > 8 then
               begin
                    compte       := 1;
                    increment    := increment + 48;
               end;
 
               // Si limite des Cases de L'Echéquier n'est pas Dépasser
               // Si les Coordonnées du Déplacement Correspond à une Case
               try
               if (coordEnY + increment <= 392) and (coordEnY + increment = coordsCasesY[yTop]) and
                   (coordEnX + increment = coordsCasesX[yTop])  then
               begin
 
                    // Si à Cet Emplacement est Vide ou Contient une PieceRouge
                    if (emplacementPieces[yTop] = 'vide') or (emplacementPieces[yTop] = 'pieceRouge') then
                    begin
                         deplacementPieces[yTop] := true;
                         if emplacementPieces[yTop] = 'pieceRouge' then
                         continuer := false;
                    end
                    else
                    begin
                         continuer := false;
                    end;
               end;
               except
                 showMessage('Lors de l''exception, yTop vaut '+intToStr(yTop));
               end;
 
               yTop              := yTop + 1;
               compte            := compte + 1;
             until continuer = false;
    end;

Il n'y a pas eu l'affichage du showMessage.

Voici un imprime écran



Par contre, en remplaçant le 'except' par 'finally', le 'yTop' démarre au nombre '1' pour... j'ai arrêté de cliquer à 600, mais ça continuait.


En aménagement de nouveau mon code

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
       {UNE TOUR}
       'uneTour'   : begin
 
             increment := 48;
             compte    := 1;
             continuer := true;
             yTop      := 1;
             yDown     := 64;
             memoYto   := 0;     // Mémorise lyTop
             voirMemo  := false; 
 
             repeat
               // Lorsque COMPTE atteind <8>, INCREMENT permet l'ajout d'une ligne
               if compte > 8 then
               begin
                    compte       := 1;
                    increment    := increment + 48;
               end;
 
               // Si limite des Cases de L'Echéquier n'est pas Dépasser
               // Si les Coordonnées du Déplacement Correspond à une Case
               try
               if (coordEnY + increment <= 392) and (coordEnY + increment = coordsCasesY[yTop]) and
                   (coordEnX + increment = coordsCasesX[yTop]) and voirMemo = false  then
               begin
 
                   memoYto   := yTop;
                   voirMemo  := true;
 
               end;
               finally
                 showMessage('Lors de l''exception, yTop vaut '+intToStr(yTop));
               end;
 
 
               if voirMemo = true then
               begin
                   voirMemo  := false;
 
                     // Si à Cet Emplacement est Vide ou Contient une PieceRouge
                    if (emplacementPieces[memoYto] = 'vide') or (emplacementPieces[memoYto] = 'pieceRouge') then
                    begin
                         deplacementPieces[memoYto] := true;
                         if emplacementPieces[memoYto] = 'pieceRouge' then continuer := false;
                    end
                    else
                    begin
                         continuer := false;
                    end;
 
               end;
 
 
 
               yTop              := yTop + 1;
               if yTop >= 65 then continuer := false;
               //compte            := compte + 1;
             until continuer = false;
    end;

J'ai seulement deux affichage du message donnant la valeur d'yTop, c'est à dire : yTop = 1 puis yTop = 2, mais je n'ai pas le déplacement attendu dans mon IHM.

[tourlourou]

Si je comprends le code, tant que la pièce arrive sur une case vide, elle semble continuer son déplacement, et yTop s'incrémente, y compris au-delà de la limite des tableaux (tu as cliqué jusqu'à 600 !) jusqu'à ce qu'on adresse une zone mémoire interdite, où ça crash.

Il faut sûrement revoir les conditions d'arrêt...

[sebBastien]

Il y a de forte chance, car ce que je ne comprends pas, c'est qu'il y a 2 conditions pour que ce genre d'incident n'arrive pas.

Voici comment fonctionne mon programme. Mais avant toute chose, lorsqu'une pièce Noir appelle cette procedure, par une clique sur un pièce (TouR, Roi, Reine etc..), elle identifie le type de pièce, puis elle met dans un tableau le type de déplacement de cette dernière.

Comme vous l'avez deviné, il s'agit d'un jeux d'échec, donc l'échiquier de 64 cases est composé de TShape. La première case à pour 'coordonnées': Top= 56 et Left = 240, tandis que le dernier : Top = 392 et Left = 576, voici donc mes limites pour X et Y(1ère condition d'arrêt).

Mon algorithme:

Dans un repeat, jusqu'à continuer = false (2nd condition d'arrêt)
Pour un déplacement vertical (une tour)

Si les coordonnées Y de la case de la pièce + 48 <= 392 (coordEnY + increment <= 392) ET
si les coordonnées Y de la case de la pièce + 48 = aux coordonnées Y d'un Tshape et
si les coordonnées X de la case de la pièce = aux coordonnées X d'un Tshape ET
voirMemo = false ALORS

Je mémorise l'index yTop dans memoYtop
et je mets voirMemo = true

Puis Si voirMemo = true ALORS

Je remet voirMemo = false

Si en utilisant l'index memoYto, il y a 'vide' ou 'pieceRouge' dans le tableau emplacementPieces

J'indique par True, dans le tableau deplacementPieces, que le déplacement dans cette case est possible
Mais si le tableau deplacementPieces contenait une pieceRouge

condition d'arrêt du repeat : continuer = false

Autrement, si le emplacementPieces à autre chose que 'vide' ou 'pieceRouge', il y a le condition d'arrêt: continuer = false

[Ph. B.]

Bonjour,

Il y a de forte chance, car ce que je ne comprends pas, c'est qu'il y a 2 conditions pour que ce genre d'incident n'arrive pas.

Eh non, ce sont des conditions nécessaires mais pas suffisantes !

Elles permettent de déterminer si un mouvement sur une case est possible, mais elles ne déterminent pas que l'on a parcouru tout l'échiquier (yTop > 64) !

De plus, si vous aviez compilé votre programme en spécifiant les contrôles d'intervalles dans les infos de débogage (options du projet), vous auriez eu un message plus explicite...

Il faut rajouter cette condition d'arrêt sur le parcours complet de l'échiquier...

[sebBastien]

Bonsoir à tous

De plus, si vous aviez compilé votre programme en spécifiant les contrôles d'intervalles dans les infos de débogage (options du projet), vous auriez eu un message plus explicite...

Il faut rajouter cette condition d'arrêt sur le parcours complet de l'échiquier...

Ca fait 1 semaine que je me suis mis au Pascal sur Lazarus, je ne connais pas encore certaines astuces . Autrement, j'ai remplacé le repeat par un for x := 1 to 64, ça empêchera les boucles sans fin.

J'ignore si je suis sur la bonne voie, car j'ai plus d'une procedure en parallèle qui s'appellent, mais j'ai un début de résultat. En effet, en faisant d'innombrable tests, j'ai remarqué que les IF ne peuvent traité que 2 'Boolean', pas d'avantage (à moins que je ne sache pas m'y prendre).

Exemple :

if (unNbrA = unNbrB) and (unNbrC = unNbrD) => Ok

Qu'il semble être considéré : if TRUE and FALSE

if (unNbrA = unNbrB) and (unNbrC = unNbrD) and (unNbrE = unNbrF) => not Ok

Qu'il semble être considéré : if True and FALSE and TRUE

En enlevant les parenthèses, j'ai remarqué un beug
'On obtient un Boolean, un LongInt était attendu', après un sommaire traduction.

[ThWilliam]

Bonjour.

Concernant ton premier message : l'erreur vient de la non vérification de la valeur de YTop.
Comme tu fais une incrémentation de YTop en fin de boucle, si Continuer est toujours true, le test "...coordsCasesY[yTop]" peut provoque une erreur si YTop a une valeur supérieure à 64, car tu sors des limites de ton array (1..64).
Si tu remplaces ton Until par : until (Continuer = false) or (yTop > 64) , tu ne devrais plus avoir de problèmes.

Concernant ton dernier message, un IF peut contenir une "panoplie" de and ou or , à condition de bien utiliser les parenthèses !

Thierry

[sebBastien]

Bonjour à tous !!

Vraiment un grand grand merci pour votre aide, suite à vos conseils j'ai pu trouvé les erreurs de mon code. Sans entré dans les détails, car ça risque d'être long, j'avais des erreurs au niveau de l'enregistrement de certains tableaux et variables.

C'était long de vérifier la valeur de chaque variables, par leurs affichages, mais c'était pour la bonne cause. Actuellement toutes mes pièces se déplacent en respectant leur 'type': pion, cavalier, fou etc.

Encore merci et dorénavant je serais adepte des showMessage et des Try