Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
What base class to use in VFP 9 for biz?
Message
 
 
À
17/06/2005 09:47:55
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
01024176
Message ID:
01024290
Vues:
16
>>Very interesting results. No, I don't need to open that many of them. And the time to open is not a concern but rather how much memory and resources the object takes, even if one is open. I don't even know how to find out what memory and resources footprint this or that object takes. But, in the end, your test proves that what I perceive to be "heavy" maybe is not such a bad thing. I will definitely consider Form now as a base for my business object class.
>>Thank you very much!
>
>I believe that for the memory used, you would use sys(1016).
>
>This sample program:
>
>
>StartTime = seconds()
>? "Memory used at start:", SYS(1016)
>dimension oArray(100)
>for i = 1 to 100
>	oArray(i) = CreateObject("Form")
>next
>EndTime = seconds()
>? "Time to instantiate:", EndTime - StartTime
>? "Memory used at peak:", SYS(1016)
>release oArray
>? "Time to release:", seconds() - EndTime
>? "Memory used after release:", SYS(1016)
>
>
>indicates a use of about 1000 bytes per Form. The memory used initially increases slightly after the first run, but then it stabilizes.
>
>You might also want to: test with the Session class for comparison; and search the sys() function for free memory, as a double-check.

Thank you very much for the sample test code. As soon as I get my VFP 9 package, I will be doing this testing.
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform