TestNil Routines

Summary

Raises exception if PAPointer is nil.

Unit
MtxVec

Declaration

Procedure TestNil(a, b, c: PAPointer);

Description

Test three pointers, if they are nil.

Declaration

Procedure TestNil(a, b, c, d: PAPointer);

Description

Raises exception any of the PAPointer variables is nil.

Example 1

          var a,b: TVec;
          begin
            a := TVec.Create;
            b := TVec.Create;
            try
              // ...
            finally
              a.Free;
            end;
            TestNil(a,b);

Declaration

Procedure TestNil(a: PAPointer);

Description

Test one pointer, if it equals nil.

Declaration

Procedure TestNil(a, b: PAPointer);

Description

Test two pointers, if they are nil.