TPoint ist ein Record, und in Delphi 2006 gibts noch Überladen von Operatoren. Dazu musst du dein TPoint noch definieren:
Delphi-Quellcode:
interface
TPoint = record
x, y : LongInt ;
class operator Equal (p1, p2 : TPoint) : boolean ;
end ;
implementation
class operator TPoint.Equal(p1, p2: TPoint): boolean;
begin
Result := (p1.x = p2.x) and (p1.y = p2.y);
end;
end.
Und dann kannst du ganz bequem deine Punkte vergleichen:
Delphi-Quellcode:
var
n1, n2 : TPoint ;
begin
if n1 = n2 then ; // Tuwas
end ;
Aber ob dazu zu raten ist, ist ne andere Frage.