Discussion :

[Charly910]

Bonjour,

peut on tester 2 points pour savoir s'ils sont identiques sans tester leur Coordonnées car le test direct sur l'égalité des TPoints ne peux pas marcher ?

A+
Charly

[XeGregory]

Bonjour Charly,

Il me semble qu'avec TPoint, il n’existe pas d’opérateur d’égalité défini par Delphi, donc tu ne peux pas éviter la comparaison des coordonnées.

Code :

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

1
2
3
4
function SamePoint(const P1, P2: TPoint): Boolean;
begin
  Result := (P1.X = P2.X) and (P1.Y = P2.Y);
end;

Code :

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

1
2
if SamePoint(P1, P2) then
  ShowMessage('Identiques');

Après, il existe peut-être une autre solution.

[SergioMaster]

Des fonctions de comparaisons (et plus) sont apparues, mais, selon la doc, à partir de XE3 (dans l'unité Types).

[Informt2025]

Un truc du genre:

Code :

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

  if Int64(p1) = Int64(p2) then

Pour éviter la confusion à la lecture de int64 dans le code, on peut créer un nouveau type

Code :

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

1
2
3
type Rc = type Uint64;
 
  if Rc(p1) = Rc(p2) then

[Charly910]

Ok, merci à tous, je vais tester le coup des int64

A+
Charly

[der§en]

Peux-être un helper sur le tpoint !

[Charly910]

Bonjour,

oui, merci, ça revient à faire une fonction :

Code :

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

1
2
3
4
function SamePoint(const A, B: TPoint): Boolean;
begin
  Result := (A.X = B.X) and (A.Y = B.Y);
end;

A+
Charly