Hi fabio,

That one is not that dramatic. And it can be avoided by adding m.

=m.this.someproperty

Walter,




>>
>>Any comments ?
>
>Hi Walter,
>
>this is another degradation:
>

>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
>

>
>Fabio