Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VFP Wish, ICASE()..
Message
De
24/10/1999 08:50:43
 
 
À
22/10/1999 20:32:51
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00280338
Message ID:
00280547
Vues:
15
IMHO, it would make the code too hard to read in many cases.
>... to resemble iif(). Would anybody find this useful? Here's an example of what I mean, run this:
>
>
nNum = 3
>wait window icase(nNum = 1, '1', nNum = 2, '2', nNum = 3, '3')
>
>func icase
>lparam teCase1, teReturn1, ;
>	teCase2, teReturn2, ;
>	teCase3, teReturn3, ;
>	teCase4, teReturn4, ;
>	teCase5, teReturn5, ;
>	teCase6, teReturn6, ;
>	teCase7, teReturn7, ;
>	teCase8, teReturn8, ;
>	teCase9, teReturn9, ;
>	teCase10, teReturn10, ;
>	teCase11, teReturn11, ;
>	teCase12, teReturn12, ;
>	teCase13, teReturn13, ;
>	teCase14, teReturn14, ;
>	teCase15, teReturn15
>local leReturn
>
>do case
>	case teCase1
>		leReturn = teReturn1
>	case teCase1
>		leReturn = teReturn2
>	case teCase3
>		leReturn = teReturn3
>	case teCase4
>		leReturn = teReturn4
>	case teCase5
>		leReturn = teReturn5
>	case teCase6
>		leReturn = teReturn6
>	case teCase7
>		leReturn = teReturn7
>	case teCase8
>		leReturn = teReturn8
>	case teCase9
>		leReturn = teReturn9
>	case teCase10
>		leReturn = teReturn10
>	case teCase11
>		leReturn = teReturn11
>	case teCase12
>		leReturn = teReturn12
>	case teCase13
>		leReturn = teReturn13
>	case teCase14
>		leReturn = teReturn14
>	case teCase15
>		leReturn = teReturn15
>endcase
>
>return leReturn
>endfunc
>
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform