Transtypage d'une variable de type enregistrement

Bonjour !

Dans un programme (d'échecs) j'ai le type TMove :

Code:

---

1 2 3 4 5

TMove = record a, b: integer; promote: TPiece; bits: TMoveTypeSet; end;

---

Un tableau déclaré comme suit :

Code:

---

gMoveArray: array[0..MAX_PLY - 1, 0..MAX_PLY - 1] of TMove;

---

Au début de la procédure de recherche du meilleur coup, la variable gMoveArray est réinitialisée par le code suivant :

Code:

---

FillChar(gMoveArray, SizeOf(gMoveArray), 0);

---

Dans le programme principal, pour savoir si un coup a été trouvé, le code actuel est le suivant :

Code:

---

if longint(gMoveArray[0, 0]) = 0 then

---

Malheureusement cette dernière ligne est refusée par plusieurs compilateurs, par exemple par Delphi 7 : "transtypage incorrect".

La même technique est utilisée à d'autres endroits du programme. J'aimerais avoir un code qui est accepté par tous les compilateurs. Merci d'avance pour vos idées.

Hello !

La seule façon de procéder est d'écrire une fonction qui prend le record en entrée, qui effectue la bonne comparaison et qui renvoie un booléen.

Mei,

Citation:

---

Envoyé par M.Dlb

Hello !

La seule façon de procéder est d'écrire une fonction qui prend le record en entrée, qui effectue la bonne comparaison et qui renvoie un booléen.

---

Ce n'est pas forcément la seule, mais c'est clairement la plus propre du point de vue programmation.

Cependant, comme je suppose qu'elle est appelée fréquemment, ça risque de ralentir le programme. À voir

Merci pour vos réponses.

Ailleurs dans le programme on compare un enregistrement à un autre. J'ai remplacé par la fonction CompareMem() : ça paraît fonctionner.

Code:

---

1 2	//if longint(gMoveScoreArray[i].m) = longint(gMoveArray[0, gPly]) then if CompareMem(@gMoveScoreArray[i].m, @gMoveArray[0, gPly], SizeOf(TMove)) then

---

Il est à noter que j'avais modifié le type TMove. Dans le code original, c'était comme ça :

Code:

---

1 2	TMove = record a, b: shortint;

---

Pour comparer avec un enregistrement vide (ou plutôt mis à zéro), est-ce que je peux aussi utiliser CompareMem() ?

A mon avis la solution avec CompareMem est à peine moins mauvaise que la bidouille du transtypage. Elle peut ne pas fonctionner s'il y a des octets non utilisés dans ton record. Ce qui peut arriver pour aligner les champs sur des adresses multiple de 4 par exemple. Tu peux eviter ce problème avec un packed record. Mais la solution d'une fonction inline me semble bien meilleure.

Bien, je me range à votre avis.

Code:

---

1 2 3 4 5 6 7 8

function CompareMoves(const m1, m2: TMove): boolean; begin result := (m1.a = m2.a) and (m1.b = m2.b) and (m1.promote = m2.promote) and (m1.bits = m2.bits); end;   //if longint(gMoveScoreArray[i].m) = longint(gMoveArray[0, gPly]) then //if CompareMem(@gMoveScoreArray[i].m, @gMoveArray[0, gPly], SizeOf(TMove)) then if CompareMoves(gMoveScoreArray[i].m, gMoveArray[0, gPly]) then

---

Et du coup pour tester si la variable contient des données ou est à zéro j'ai fait comme ça :

Code:

---

if (gMoveArray[0, 0].a = 0) and (gMoveArray[0, 0].b = 0) then

---

Toujours à propos de transtypage, j'ai aussi un type TColor :

Code:

---

1 2 3

type TColorWide = (cwWh, cwBl, cwNo); // Wh=White, Bl=Black, No=None TColor = cwWh..cwBl;

---

Une fonction OtherColor() qui est écrite ainsi :

Code:

---

1 2 3 4

function OtherColor(aColor: TColor): TColor; begin result := TColor(integer(aColor) xor 1); end;

---

Il faut savoir que le code en question est une adaptation du programme en C. La fonction se compile et donne le résultat attendu mais c'est encore du "bidouillage", non ? Donc il vaudrait mieux faire comme ci-dessous ?

Code:

---

1 2 3 4 5 6 7

function OtherColor(const aColor: TColor): TColor; begin if aColor = cwWh then result := cwBl else result := cwWh; end;

---