Test sur des records

J'aurais aimé savoir s'il était possible, lors d'un test entre deux records de tester les records plutot que les composantes une à une.

Par exemple pour un record de coordonnées

Tpoint_etude = record
X : real;
Y : real;
end;

Au lieu de faire
if (point1.X=point2.X) and (point1.Y=point2.Y)

j'aimerais faire un truc du genre if point1=point2

mais ca marche pas.... :(

Ben nan, pas de bol !

Tout au plus, écris une fonction qui réalise le test à ta place

Code:

---

1 2 3 4 5

function PointEquals(const PE1, PE2: Tpoint_etude): boolean; begin Result := (PE1.X=PE2.X) and (PE1.Y=PE2.Y) End;

---

Remarque : Attention à la comparaison directe de deux réels (comme ci-dessus) si ces derniers sont issus de calculs (la précision est limitée), le test peut produire des résultats erronés.

cdlt

e-ric

Tests avec CompareMem

Le comparaison avec CompareMem peut suffire pour des structures très simple est limitée

mais
- comme le dit e-ric, dans le cas de float, 2 réel peuvent être visuellement identique, alors que leur représentation binaires ne le sont pas (arrondis...)
- et, si la structure possède des pointeurs vers d'autres struc ou classe, il y aura uniquement comparaison des pointeurs et non du contenu des pointeurs.

Le mieux, si le jeu en vaut la chandelle, est peut-être de transformer ton record en class, avec une méthode de comparaison intégrée:

Code:

---

1 2 3 4 5

TPointClass = class( TObject) X, Y : real; //... un constructeur initialisant X et Y serait le bienvenu function EgalA( P: TPointClass ): Boolean; end;

---

avec

Code:

---

1 2 3 4

function TPointClass( P: TPointClass ): Integer; begin Result := ( Abs( X - P.X ) < DELTA ) and ( abs( Y - P.Y ) < DELTA); end;

---

Avec DELTA = 10E-6 par exemple...

Utilisation

Code:

---

1 2 3 4 5 6

var P1, P2: TPointClass; BEgal: Boolean; begin ... instanciation + alimentation de P1 et P2 BEgal := P1.EgalA( P2 );

---