Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Single exit-point
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00640316
Message ID:
00640565
Views:
32
>>>>Hi Sergey,
>>>>
>>>>>< pre >
>>>>>Or even shorter
LOCAL llresult
>>>>>llresult = .T.
>>>>>llresult = llresult And StepOne()
>>>>>llresult = llresult And StepTwo()
>>>>>llresult = llresult And StepThree()
>>>>>
>>>>
>>>>How about,
>>>>
llresult = StepOne() AND StepTwo() AND StepThree()
>>>Return llresult
>>>
>>>
>>>OR
>>>
RETURN StepOne() AND StepTwo() AND StepThree()
>>>
>>>:-)
>>
>>BTW, how about
>>
>>
RETURN StepThree(StepTwo(StepOne()))
>>
>>:)
>
>This version is incorrect, unfortunately... :) You would have to call each method and you would have to check for parameters passed...

No, it is correct. I assume the Step procedures know what to do themselves.

Try something like:
set procedure to steps
lCheck = step3(step2(step1()))
lCheck = step3(step2(step1(.t.)))

*** Steps.prg
PROCEDURE step1
	LPARAMETER tl1
	* lResult = [you may do something logical here]
	lResult = tl1 && just as a default value 
RETURN lResult

PROCEDURE step2
	LPARAMETER tl1
	* do something
	lResult = tl1 AND .T. && OR some other valid logical expression instead of just .t.
RETURN lResult

PROCEDURE step3
	LPARAMETER tl1
	* do something
	lResult = tl1 AND .T. && R OR some other valid logical expression instead of just .t.
RETURN lResult
Nick Neklioudov
Universal Thread Consultant
3 times Microsoft MVP - Visual FoxPro

"I have not failed. I've just found 10,000 ways that don't work." - Thomas Edison
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform