IGxPointF.Equals

Синтаксис

Equals(Point: IGxPointF): Boolean;

Параметры

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

Описание

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

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента UiWorkspace с наименованием «UiWorkspace1» и какого-либо визуального компонента, для которого «UiWorkspace1» установлен в качестве источника данных.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    PointF: IGxPointF;
    Link, Link1: IWxLink;
    s: String;
Begin
    PointF := New GxPointF.Create(0, 0);
    Link := UiWorkspace1.WxWorkspace.CreateLink;
    Link1 := UiWorkspace1.WxWorkspace.CreateLink;
    Link.BeginUpdate;
    Link1.BeginUpdate;
    PointF.X := Math.RandBetween(0, 111.35);
    Link.FirstPoint := PointF;
    PointF.X := Math.RandBetween(0, 111.36);
    Link1.LastPoint := PointF;
    Link.EndUpdate;
    Link1.EndUpdate;
    If Link.FirstPoint.Equals(Link1.FirstPoint) Then
        s := "Yes";
    Else
        s := "No";
    End If;
End Sub Button1OnClick;

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

См. также:

IGxPointF