[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'Objects' (#rtl)

# TRect.Empty

Is the surface of the rectangle zero

## Declaration

Source position: objects.pp line 235

`function TRect.Empty: Boolean;`

## Description

Empty returns True if the rectangle defined by the corner points A, B has zero or negative surface.

## Errors

None.

## See also

TRect.Equals |  | Do the corners of the rectangles match
TRect.Contains |  | Determine if a point is inside the rectangle

## Example

    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.

Documentation generated on: Feb 26 2014