blob: 9a0b8fa9e091dee1b51b915237ec718af3653eb6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Program ex3;
{ Program to demonstrate TRect.Union }
Uses objects;
Var ARect,BRect,CRect : TRect;
begin
ARect.Assign(10,10,20,20);
BRect.Assign(15,15,25,25);
{ CRect is union of ARect and BRect }
CRect.Assign(10,10,25,25);
{ Calculate it explicitly}
ARect.Union(BRect);
If ARect.Equals(CRect) Then
Writeln ('ARect equals CRect')
Else
Writeln ('ARect does not equal CRect !');
end.
|
