Programowanie w języku Delphi

PointsEqual

  • 2010-10-31 18:27
  • 0 komentarzy
  • 663 odsłony
  • Oceń ten tekst jako pierwszy
PointsEqual
Moduł: Classess

function PointsEqual(const P1, P2: TPoint): Boolean; overload;
function PointsEqual(const P1, P2: TSmallPoint): Boolean; overload;

Funkcje sprawdzają czy wartości współrzędnych określone w parametrach P1 oraz P2 są sobie równe. W takim wypadku funkcja zwraca wartość True. Oto przykład, warunku, który zawsze zostanie spełniony:

var
  P1, P2 : TPoint;
begin
  P1 := Point(10, 10);
  P2 := P1;
 
  if PointsEqual(P1, P2) then
    ShowMessage('Wartości zmiennych P1 oraz P2 są równe!');
end;


Zobacz też: