Discussion :

[Tchaill39]

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....

[e-ric]

Ben nan, pas de bol !

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

Code :

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

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

[Rayek]

Tests avec CompareMem

[TicTacToe]

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 :

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

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 :

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

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 :

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

1
2
3
4
5
6
var 
  P1, P2: TPointClass;
  BEgal: Boolean;
begin
  ... instanciation + alimentation de P1 et P2
  BEgal := P1.EgalA( P2 );