blob: 0886f4bc9d08407f0f6a38ac5b466846af90259f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Program ex2;
{ Program to demonstrate TRect.Copy }
Uses objects;
Var ARect,BRect,CRect : TRect;
begin
ARect.Assign(10,10,20,20);
BRect.Assign(15,15,25,25);
CRect.Copy(ARect);
If ARect.Equals(CRect) Then
Writeln ('ARect equals CRect')
Else
Writeln ('ARect does not equal CRect !');
end.
|
