Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Is a parameter an array?
Message
De
11/11/2003 22:46:52
 
 
À
11/11/2003 22:19:46
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00848944
Message ID:
00848967
Vues:
15
Thanks Hilmar!! That works great!

Ric

>You want to ascertain that a parameter, like par1, is an array, right?
>
>
>if type("par1(1)") # "U"
>  * it is an array
>endif
>
>
>>Hi all,
>>
>>I have a multi-function processor, sort of like a train station (methoddirector). It holds parameters passed from various functions and then sends them on (for various reasons).
>>
>>Okay, I have methodX on a form:
>>
>>
*-- this will send some data and an array to the application.methoddirector
>>LOCAL lnReturn, laMyArray, lcMyString, lnMyNumber
>>DIMENSION laMyArray[1,4]
>>laMyArray[1,1] = 'This number'
>>laMyArray[1,2] = 4
>>laMyArray[1,3] = 'is spelled'
>>laMyArray[1,4] = 'four'
>>lcMyString = 'Testing Four'
>>lnMyNumber = 4
>>lnReturn = application.methoddirector(lcMyString, @laMyArray, lnMyNumber)
>>
>>Okay, so far... the PARAMETERS() of application.methoddirector will catch all of this fine...
>>
>>
*-- method.methoddirector
>>PARAMETERS pItem1, pItem1, pItem1, pItem1, pItem1, pItem1,
>>DO CASE
>> CASE PCOUNT()=1
>>  lnReturn = mehtod.oneparamterthingy(pItem1)
>> CASE PCOUNT()=2
>>  lnReturn = mehtod.oneparamterthingy(pItem1, pItem2)
>> .....
>>ENDCASE
>>RETURN lnReturn
>>
>>I hope you can see the problem here. One of the items I passed in the first codeblock was an array. It might not be an array all the time, or anytime, based on what is sending data to the method.director. I need to be able to ascertain if there is an array passed to method.director which will need to have the '@' inserted.
>>
>>When I do have to pass an array item, from a passed parameter array item, how do I determine if ANY parameter is an array?
>>
>>
>>TIA
>>
>>Ric
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform