Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Single exit-point
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00640316
Message ID:
00640576
Vues:
29
>>>>>>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
>>
>>
>
>Well, with this assumption it would work... But it was not that clear from the original BR :) ("postanovka zadachi" - what's the correct English term?)
>
>And you still have to call all three methods while in the first version you don't have to if one of them failed.

The contest started about the shortest one, not the fastest one... :)
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform