I heard the VFP 8 object creation was much faster then VFP7, which objects ? i run this in VFP7(SP1) and then in VFP8(RTM) and VFP7 is a bit faster. Can anyone confirm?

Local x,i,a
Local array laClasses(1)
If File("VFPTest.dbf")
	USE VFPTest
Else
	Create Table VFPTest(ClassName C(20), Time7 N(12,4), Time8 N(12,4) )
EndIf
Local ox as 
x="Session,line,container,commandbutton,custom,textBox,Spinner,Shape"
x=Strtran(x, ",", chr(13) )
ALines(laClasses, x)

For i = 1 to Alen(laClasses,1)

	n=Seconds()
	For a = 1 to 10000
		ox = CreateObject(laClasses(i))
		ox = NULL
	EndFor
	? laClasses(i) + " Class: " + Transform(Seconds() -n)
	Locate For ClassName = laClasses(i)
	If Found()
		If Val(_Vfp.Version) = 8
			Update VFPTest Set Time8 = Evaluate("Seconds() -n") Where ClassName = laClasses(i)
		Else
			Update VFPTest Set Time7 = Evaluate("Seconds() -n") Where ClassName = laClasses(i)
		EndIf
	Else
		If Val(_Vfp.Version) = 8
			Insert Into VFPTest (ClassName, Time7, Time8 ) Values ;
				( LaClasses(i), 0, Seconds() - n)
		Else
			Insert Into VFPTest (ClassName, Time7, Time8 ) Values ;
				( LaClasses(i), Seconds() - n, 0)
		Endif		
	Endif		


EndFor

Browse