LOCAL loObject loObject = CREATEOBJECT("Custom") AddProperty(m.loObject,"icName") m.loObject.icName = "Jim Nelson" CREATE CURSOR c_SomeCursor (cField1 c(10)) INSERT INTO c_SomeCursor (cField1) VALUES ("Jim Nelson") INSERT INTO c_SomeCursor (cField1) VALUES ("Mike Yearwood") xx = m.loObject SET FILTER TO cField1 = m.xx.icName BROWSE RELEASE m.loObject CLEAR DISPLAY MEMORY LIKE loObject WAIT WINDOW "Hold down the shift key to see that the object is really gone." *Do a record movement and it will crash. GO TOP BROWSEIs it still proper to you, considering that loObject has been released?
LOCAL loObject >>loObject = CREATEOBJECT("Custom") >>AddProperty(m.loObject,"icName") >>m.loObject.icName = "Jim Nelson" >> >>CREATE CURSOR c_SomeCursor (cField1 c(10)) >>INSERT INTO c_SomeCursor (cField1) VALUES ("Jim Nelson") >>INSERT INTO c_SomeCursor (cField1) VALUES ("Mike Yearwood") >> >>xx = m.loObject.icName >>SET FILTER TO cField1 = m.xx >>BROWSE >> >>RELEASE m.loObject >> >>CLEAR >>DISPLAY MEMORY LIKE loObject >>WAIT WINDOW "Hold down the shift key to see that the object is really gone." >> >>*Do a record movement and it will crash. >>GO TOP && BROWSE etc. >>>>