blob: 7a4d7b44c6fc54dd43bd29f9280ebdda0cc443c7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Program ex5;
{ Program to demonstrate TRect.Move }
Uses objects;
Var ARect,BRect : TRect;
begin
ARect.Assign(10,10,20,20);
ARect.Move(5,5);
// Brect should be where new ARect is.
BRect.Assign(15,15,25,25);
If ARect.Equals(BRect) Then
Writeln ('ARect equals BRect')
Else
Writeln ('ARect does not equal BRect !');
end.
|
