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:40:21
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
09/10/2003 07:17:49
Walter Meester
HoogkarspelNetherlands
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00835552
Message ID:
00836711
Views:
31
>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,

Walter,
I think this is much less efficient and result wouldn't be the same. Recheck original for..endfor loop and my reply to Evan:)
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform