Private

x, y : integer;

Public

constructor Create (ax, ay : integer);

procedure SetXY (ax, ay : integer);

function GetX : integer;

function GetY : integer;

end;

Описание класса окружностей с помощью введенного ранее класса точек:

TCircle = сlass

Private

center : TPoint; // объектное свойство-указатель на точку

r : integer;

Public

constructor Create (ax, ay, ar : integer); overload;

constructor Create (acenter : TPoint; ar : integer); overload;

procedure Show;

procedure MoveTo (ax, ay : integer); overload;

procedure MoveTo (anew : TPoint); overload;

procedure SetRad (ar : integer);

function GetRad : integer;

end;

Приведем примеры реализации некоторых методов класса окружностей:

constructor TCircle.Create (ax, ay, ar : integer);

Begin

center := TPoint.Create (ax, ay); // сначала создаем объект-точку

r := ar;

end;

constructor TCircle.Create (acenter : TPoint; ar : integer);

Begin

center := acenter; // а здесь используем ранее созданную точку

r := ar;

end;

procedure TСircle.Show;

Begin

«прорисовка окружности с использованием методов доступа

center.GetX и center.GetY, т.к. свойства x и y закрыты для объектов-окружностей»

end;

procedure TCircle.MoveTo (ax, ay : integer);

Begin

Show; center.SetXY(ax, ay); Show;

end;

Описание класса колец:

TRing = class

Private

circ1, circ2 : TCircle; // два объектных свойства-указателя

Public

constructor Create (ax, ay, ar1, ar2: integer); overload;

constructor Create (acirc1, acirc2 : TCircle); overload;

procedure Show;

procedure MoveTo (ax, ay : integer);

end;

Реализация методов класса колец:

constructor TRing.Create (ax, ay, ar1, ar2 : integer);

Begin

circ1 := TCircle.Create (ax, ay, ar1);

circ2 := TCircle.Create (ax, ay, ar2);

end;

constructor Tring.Create (acirc1, acirc2 : TCircle);

Begin

circ1 := acirc1;

circ2 := acirc2;

end;

procedure TRing.Show;

Begin

circ1.Show;

circ2.Show;

end;

procedure TRing.MoveTo (ax, ay : integer );

Begin

circ1.MoveTo (ax, ay);

circ2.MoveTo (ax, ay);

end;

Фрагмент программы, использующей описанные классы:

Var

MyPoint : TPoint;

MyCirc1, MyCirc2 : TCircle;

MyRing : TRing;

. . . . . . . . . . . . . . . . .

Begin

MyCirc1 := TCircle.Create (100, 100, 50); // создание окружности

MyPoint := TPoint.Create (100, 100); // создание точки

MyCirc2 := TCircle.Create (MyPoint, 150); // вторая окружность

MyRing := TRing.Create (100, 100, 50, 150); // первый способ

MyRing := TRing.Create (MyCirc1, MyCirc2); // второй способ

MyRing.Show; MyRing.MoveTo (200, 200);

. . . . . . . . . .

end;

Для указания агрегационных связей между классами в языке UML предусмотрены соответствующие графические средства. Например, в случае нестрогой агрегации связи между классами задаются линиями с незаполненными ромбиками на конце, причем эти ромбики ставятся у составного класса. Дополнительно на линии может указываться мощность связи, т.е. возможное число объектов в составе агрегированного объекта. Например:

Для строгой ассоциации (композиции) вместо пустых ромбиков используются сплошные заполненные ромбики. Например, композиционные связи между классами Точка, Окружность, Прямоугольник и Кольцо можно представить следующим образом: