Clear All
Local ;
	m.ln As Integer,;
	m.lnObjects As Integer,;
	m.lnUsrMemo As Integer

*!*	m.lnObjects =  100  && Число объектов
m.lnObjects =  1000  && Число объектов
Local Array laMyObjects[m.lnObjects] As Object

m.lnUsrMemo = Val(Sys( 1016 ))
For m.ln= 1  To m.lnObjects
	laMyObjects[m.ln] = Createobject("clsCustom")
Next
m.lnUsrMemo = Val(Sys( 1016 )) - m.lnUsrMemo

** Clear
? "на все объекты, "+Transform(m.lnObjects), m.lnUsrMemo
? "на 1 объект ", m.lnUsrMemo / m.lnObjects

Define Class clsCustom As Custom
Enddefine