Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
One exit per procedure/function/codeblock to what purpos
Message
From
09/10/2003 07:17:49
Walter Meester
HoogkarspelNetherlands
 
 
To
08/10/2003 22:51:37
Mike Yearwood
Toronto, Ontario, Canada
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00835552
Message ID:
00836702
Views:
33
How about ?
PROCEDURE SomeProc
LOCAL SomeVariables, lRet, nX

DO CASE
   CASE !THIS.GetValidDateRanges()

   CASE THIS.ExecSomeOtherCode() AND TYPE('.arrItems[1,1]')#'N'

   OTHERWISE
      nX = 1
      lRet = .T.

      DO WHILE nX >= ALEN(THIS.arrItems,1) AND lRet
         lRet = (THIS.arrItems[ix,2] # 'somecondition' OR THIS.SomeOtherProc(nX)) AND ;
                (THIS.arrItems[ix,3] # 'somecondition2' OR THIS.SomeOtherProc2(nX)) 

         nX = nX + 1
      ENDDO
ENDCASE
RETURN lRet
Compact, and in some respect somewhat dirty. However I find this very clear to read.

Walter,
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform