lnStart = VAL(SYS(1016))
FOR lnCounter = 1 TO 5000
oa=CREATEOBJ("custom")
oa.ADDOBJECT("crap", "Custom")
oa.crap.ADDOBJECT("crap", "Custom")
<b>* FWIW adding this reduces the "leak" from 1208 bytes to 292 on my system:
oa.crap.RemoveObject("crap")</b>
oa.RemoveObject("crap")
ENDFOR
lnEnd = VAL(SYS(1016))
release all like oa
? "Start = " + STR(lnStart) + " End = " + STR(lnEnd) + " Diff = " + STR(lnEnd - lnStart)
Regards. Al
"Violence is the last refuge of the incompetent." -- Isaac Asimov
"Never let your sense of morals prevent you from doing what is right." -- Isaac Asimov
Neither a despot, nor a doormat, be
Every app wants to be a database app when it grows up
