Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Anything better than PCOUNT()?
Message
From
16/11/2015 10:02:23
 
 
To
04/11/2015 14:32:26
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 8.1
Network:
Windows 2008 Server
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01627034
Message ID:
01627493
Views:
87
>Hi,
>
>I think I know the answer to this but wanted to see if there really is a solution:
>
>I want to use a method with a few of the parameters as optional e.g.
>
>
>loSettings.SetObject("txtLastname",,.T.,.F.)
>
>
>and then in the method code I have this:
>
>
>LPARAMETERS tcObjectName, txValue, tlVisible, tlEnabled
>
>
>where the 2nd parameter is not passed; PCOUNT() does not does help because I have passed the 3rd and 4th params.
>
>Of course in the method code, I get a default value for the second parameter as .F.; but that does not help me to know if it was passed or not because in this case the "value" could be a logical that was passed.
>
>I realize that I could change the order of the parameters so that txValue is last and then PCOUNT() works but the 2 most commonly used parameters are the first 2 and so I would rather have them in the order they are.
>
>What I need is function that tells me if the 2nd paramter ws passed something like IF PARAMETER(2) = .T.
>
>or I need a way for the parameters to default to .null. or something if nothing passed.
>
>Am I missing something that is in the help file?
>
>Thanks,
>
>Albert Gostick

Hi Albert,

optional parameters won't work in VFP. You can however pass in a parameter object and that will let you only set the values you want:
m.loParameter = CREATEOBJECT("Empty")
ADDPROPERTY(m.loParameter, icObjectName, "MyName")
ADDPROPERTY(m.loParameter, txValue, "MyValue")
ADDPROPERTY(m.loParameter, tlVisible, NULL)
ADDPROPERTY(m.loParameter, tlEnabled, .T.)

DO MyProc WITH m.loParameter
Frank.

Frank Cazabon
Samaan Systems Ltd.
www.samaansystems.com
Previous
Reply
Map
View

Click here to load this message in the networking platform