=m.this.someproperty
Walter,>CLEAR ALL >CLEAR >SET TALK OFF >SET NULL ON > >? "2 tables" >? "---------" >FOR nT = 51 TO 52 > SELECT 0 > CREATE CURSOR ("Res"+ALLTRIM(STR(nT))) (C C(1)) > APPEND BLANK >ENDFOR >DO TestPerfO >? >? "10 tables" >? "---------" >CLEAR ALL >FOR nT = 50 TO 60 > SELECT 0 > CREATE CURSOR ("Res"+ALLTRIM(STR(nT))) (C C(1)) > APPEND BLANK >ENDFOR >DO TestPerfO > >? >? "60 tables" >? "---------" > >CLEAR ALL >FOR nT = 1 TO 60 > SELECT 0 > CREATE CURSOR ("Res"+ALLTRIM(STR(nT))) (C C(1)) > APPEND BLANK >ENDFOR >DO TestPerfO > >? >? "100 tables" >? "---------" > >CLEAR ALL >FOR nT = 1 TO 100 > SELECT 0 > CREATE CURSOR ("Res"+ALLTRIM(STR(nT))) (C C(1)) > APPEND BLANK >ENDFOR >DO TestPerfO > >PROCEDURE TestPerfO >nSec= SECONDS() >WITH CREATEOBJECT("someObject") > .test >ENDWITH > >? "1.000.000 property call", SECONDS() - nSec > >DEFINE CLASS someObject AS Custom > > someproperty = .F. > > PROCEDURE test > FOR nT = 1 TO 1000000 > =this.someproperty > ENDFOR >ENDDEFINE >>