Scan for ordine > 0 oform.addObject('_l'+Transform(recno()),'Mylabel') oCtrl = Evaluate("oform."+'_l'+Transform(Recno())) oCtrl = Evaluate("oform."+'_l'+Transform(Recno())) oCtrl.autosize = .t. oCtrl.caption = Alltrim(wObjShow.descri) octrl.left = 10 octrl.top = lnTop + 3 octrl.visible = .t. lntop = octrl.top + octrl.height oform.addObject('_'+Transform(Recno()), Iif(Empty(wObjShow.codice),Alltrim(wObjShow.ctrl),'p'+Alltrim(wObjShow.ctrl))) oCtrl = Evaluate("oform."+'_'+Transform(Recno())) oCtrl.width = 100 octrl.left = 10 octrl.top = lnTop octrl.visible = .t. lntop = octrl.top + octrl.height *------------- * adding this line I haven't errors anymore Release octrl *------------- EndScanNote that first of this step I cleared the oForm e oCtrl variables at the end of the program.
>CLEAR PROGRAM >CLEAR CLASS ... >>
>>lcString = myDefineCode >>=strtofile(lcstring,MyFlyProc,0) >>lcMemSet = set('procedures') >>compile MyFlyProc >>set procedure to MyFlyProc additive >> >>* excute my code which refers to defined object >>release procedure MyflyProc >>set procedure to (lcMemSet) >>* >>erase MyflyProc >> >>>>