IsEmpty: Boolean;
Свойство IsEmpty определяет, являются ли координаты вещественной точки нулевыми.
Свойство IsEmpty содержит значение True если вещественная точка имеет координаты «0, 0».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
PointF, PointL: IGxPointF;
Link: IWxLink;
s, s1: String;
Begin
Link:=UiWorkspace1.WxWorkspace.CreateLink;
PointF:=Link.FirstPoint;
PointL:=Link.LastPoint;
If PointF.IsEmpty Then
s:="Yes";
Else
s:="No";
End If;
If PointL.IsEmpty Then
s1:="Yes";
Else
s1:="No";
End If;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку на рабочем пространстве будет создана соединительная линия. В переменных «s» и «s1» будет содержаться «Yes», если начальная и конечная точка, соответственно, будут находиться в точке с координатами «0, 0».
См. также: