3
{ Program to demonstrate TRect.Empty }
8
Var ARect,BRect : TRect;
39
Writeln ('A empty : ',ARect.Empty);
40
Writeln ('B empty : ',BRect.Empty);
41
Writeln ('A Equals B : ',ARect.Equals(BRect));
42
Writeln ('A Contains (15,15) : ',ARect.Contains(P));
b'\\ No newline at end of file'