IGxPoint.Equals

Синтаксис

Equals(Point: IGxPoint): Booelan;

Параметры

Point. Точка, с которой производится сравнение.

Описание

Метод Equals проверяет равенство данной точки с точкой, передаваемой посредством параметра Point.

Пример

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

Point: IGxPoint;

Link, Link1: IWxLink;

s: String;

b: Boolean;

Begin

Point:=New GxPoint.Create(0,0);

Link:=UiWorkspace1.WxWorkspace.CreateLink;

Link1:=UiWorkspace1.WxWorkspace.CreateLink;

Link.BeginUpdate;

Link1.BeginUpdate;

Point.X:=Math.RandBetweenI(0,100);

Link.FirstPoint:=Point.ToPointF;

Point.X:=Math.RandBetweenI(0,100);

Link1.LastPoint:=Point.ToPointF;

Link.EndUpdate;

Link1.EndUpdate;

b:=Link.FirstPoint.ToPoint.Equals(Link1.FirstPoint.ToPoint);

If b Then

s:="Yes";

Else

s:="No";

End If;

End Sub Button1OnClick;

После выполнения примера при нажатии на кнопку на рабочем пространстве будут созданы две соединительные линии и в переменной «s» будет содержаться «Yes» если координата X конечных точек данных линий совпадает.

См. также:

IGxPoint