TPoints vergleichen

[Jelly]

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.