1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Program ex4;
{ Program to demonstrate TRect.Intersect }
Uses objects;
Var ARect,BRect,CRect : TRect;
begin
ARect.Assign(10,10,20,20);
BRect.Assign(15,15,25,25);
{ CRect is intersection of ARect and BRect }
CRect.Assign(15,15,20,20);
{ Calculate it explicitly}
ARect.Intersect(BRect);
If ARect.Equals(CRect) Then
Writeln ('ARect equals CRect')
Else
Writeln ('ARect does not equal CRect !');
BRect.Assign(25,25,30,30);
Arect.Intersect(BRect);
If ARect.Empty Then
Writeln ('ARect is empty');
end.
|
