* IsObj.prg * Test if passed property/variable name is an object. LPARAMETERS m.tcObj RETURN TYPE(m.tcObj) = "O" AND NOT ISNULL(EVALUATE(m.tcObj))-Mark
>lparameter roObject > >return( ( type( "m.roObject" ) == 'O' ) and ( ! isnull( m.roObject ) ) ) >