Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP.exe to different VFP.exe
Message
From
16/02/2021 16:08:41
 
 
To
16/02/2021 10:57:19
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01678195
Message ID:
01678293
Views:
61
Hi Marco,

SWAG deems following small change more performant...

regards
thomas

>
>**************************************************************
>* Marco Plaza, 2018,2021
>* @nfoxDev
>* https://github.com/nftools/wmiquery
>**************************************************************
>			If !Isnull(m.property.Value)
>				For Each Item In m.property.Value
>					nitem = m.nitem+1
>					Dimension &thisarray(m.nitem)
>
>					If Vartype( m.item) = 'O'
>						thisitem = Createobject(EMPTYORLINE)
>						setproperties( m.item, m.thisitem )
>						*** &thisarray(m.nitem) = m.thisitem
> 						store m.thisitem to 'thisarray(m.nitem)'
>					Else
>						*** &thisarray(m.nitem) = m.item
>						 store m.item to 'thisarray(m.nitem)'
>					Endif
>
>				Endfor
>
>			Endif
>
>
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform