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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
Program ex1;
{ Program to demonstrate TRect.Empty }
Uses objects;
Var ARect,BRect : TRect;
P : TPoint;
begin
With ARect.A do
begin
X:=10;
Y:=10;
end;
With ARect.B do
begin
X:=20;
Y:=20;
end;
{ Offset B by (5,5) }
With BRect.A do
begin
X:=15;
Y:=15;
end;
With BRect.B do
begin
X:=25;
Y:=25;
end;
{ Point }
With P do
begin
X:=15;
Y:=15;
end;
Writeln ('A empty : ',ARect.Empty);
Writeln ('B empty : ',BRect.Empty);
Writeln ('A Equals B : ',ARect.Equals(BRect));
Writeln ('A Contains (15,15) : ',ARect.Contains(P));
end.
|
