Information générale
Titre:
The VFP speed can still improve a lot.
After to have read vary messages, I would want some comment to this test.
Clear All
Close Databases All
_SCREEN.FontName="COURIER NEW"
PRIVATE a,oArr,nItCount
STORE 500 TO nItCount
Dimension oArr[m.nItCount]
? 'N° : ',m.nItCount
STORE Seconds() To tTime
For a = 1 TO m.nItCount
Store Createobject('FORM_CB') TO oArr[m.a]
ENDFOR
STORE .NULL. TO oArr
? PADR('30 Text Box Class: ',30) + Transform(SECONDS()-m.tTime)
STORE Seconds() To tTime
For a = 1 TO m.nItCount
Store Createobject('FORM_tx') TO oArr[m.a]
ENDFOR
STORE .NULL. TO oArr
? PADR('30 Text Box Class: ',30) + Transform(SECONDS()-m.tTime)
DEFINE CLASS form_cb AS form
Height = 500
Width = 600
Name = "form_cb"
ADD OBJECT combo1 AS combobox WITH Left = 20, Top = 10
ADD OBJECT combo2 AS combobox WITH Left = 20, Top = 40
PROCEDURE Init
RETURN .F.
ENDPROC
ENDDEFINE
DEFINE CLASS form_tx AS form
Height = 500
Width = 600
Name = "form_tx"
ADD OBJECT text01 AS textbox WITH Left = 0, Top = 0
ADD OBJECT text02 AS textbox WITH Left = 0, Top = 20
ADD OBJECT text03 AS textbox WITH Left = 0, Top = 40
ADD OBJECT text04 AS textbox WITH Left = 0, Top = 60
ADD OBJECT text05 AS textbox WITH Left = 0, Top = 80
ADD OBJECT text06 AS textbox WITH Left = 0, Top = 100
ADD OBJECT text07 AS textbox WITH Left = 0, Top = 120
ADD OBJECT text08 AS textbox WITH Left = 0, Top = 140
ADD OBJECT text09 AS textbox WITH Left = 0, Top = 160
ADD OBJECT text10 AS textbox WITH Left = 0, Top = 180
ADD OBJECT text11 AS textbox WITH Left = 110, Top = 0
ADD OBJECT text12 AS textbox WITH Left = 110, Top = 20
ADD OBJECT text13 AS textbox WITH Left = 110, Top = 40
ADD OBJECT text14 AS textbox WITH Left = 110, Top = 60
ADD OBJECT text15 AS textbox WITH Left = 110, Top = 80
ADD OBJECT text16 AS textbox WITH Left = 110, Top = 100
ADD OBJECT text17 AS textbox WITH Left = 110, Top = 120
ADD OBJECT text18 AS textbox WITH Left = 110, Top = 140
ADD OBJECT text19 AS textbox WITH Left = 110, Top = 160
ADD OBJECT text20 AS textbox WITH Left = 110, Top = 180
PROCEDURE Init
RETURN .F.
ENDPROC
ENDDEFINE
The result is that the practical time in order to create a ComboBox
( with rowsource empty ) is medium 10 times the time necessary to create a textBox.
Ok, ComboBox and Spinner is composite object, but 10 times it is difficult to comprise.
Strangely, for a ListBox the time is inferior.
Strangely, now editbox is more fast of textBox.
The optimal Fox Team job carried out from the VFP6 to the VFP7 ( gain 5 times on more control) and now to the VFP8 ( gain 10 times on grid !!! ) makes us to hope that also for Spinner and the ComboBox the time comes reduced.
Hello to All
Fabio
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement