Salut.
Il y a quelques petites erreurs de... Par exemple dans Uboard :
Procedure CopyBoard (var Board:TBoard; var NewBoard:TBoard );
Le var de board ne sert à rien vu qu'il n'est pas modifié dans la méthode. On peut très bien le remplacer par :
Procedure CopyBoard (Board:TBoard; var NewBoard:TBoard );
Au sein de cette méthode la copie d'un record peut se faire plus simplement :
La fonction CompareBoards ne me semble pas non plus très optimale. De plus passer les paramètres en var n'a aucun intérêt ici non plus.
De plus pour une comparaison de record j'aurais plutôt fait un truc du genre :
if CompareMem(@NewBoard, @Board, SizeOf(TBoard)) then
J'ai pas approfondi mais tant que cela fonctionne.
Partager