Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VFP.exe to different VFP.exe
Message
De
16/02/2021 16:08:41
 
 
À
16/02/2021 10:57:19
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01678195
Message ID:
01678293
Vues:
62
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
>
>
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform