utiliser les cas en delphi Résolu

Question

comment fait on pour utiliser la fonction case of... avec 3 cas, est il possible d'utiliser ces cas a la place d'un notifyevent(ex:button1.onclick:=1 et button2.onclick:=2)
merci bye;

f0xi · Accepted Answer

non non non non non et NON!

Case n'est pas une instruction de condition! c'est un switch! grosse difference!

IF ... THEN, WHILE ... DO, REPEAT ... UNTIL 

&#231;a ce sont des instructions conditionnelle attendant donc un retour Bool&#233;en (true ou false).

CASE .. OF determine un choix a selectionner (switch) selon un retour ordinal.
une valeur Ordinal est un chiffre allant de 0 a 255 (byte, char).
Case .. Of accepte egalement les ensembles et les types enum&#233;r&#233;s, car delphi les tris de maniere ordinale egalement.

par exemple :

j'ai une valeure entiere allant de 0 a 12. 
selon ces valeurs je veux determiner des cas bien particulier.

plutot que d'ecrire des conditions (a retour bool&#233;en) j'ecrirais donc un switch (case) de cette maniere :

Case I of 
0: {pour la valeur 0 : code}
1: begin {pour la valeur 1 code} end;
2,4: if {pour les valeurs 2 et 4 condition} then begin {et code} end;
3: {pour la valeur 3 code}
5..12: {pour les valeurs de 5 a 12 : code} 
end;

avec les types enum&#233;r&#233;s et ensemble je peu egalement ecrire :

case Brush.Style of
bsClear : {code};
bsSolid : {code};
end;

et pour les caracteres :

case Ch of 
'a'..'z' : {code pour les lettres de 'a' a 'z'};
'A'..'Z' : {code pour les lettres de 'A' a 'Z'};
'0'..'9' : {code pour les lettres de '0' a '9'};
'.',','  : {code pour les caracteres '.' et ','};
end;

a bien retenir, CASE n'est pas une condition, mais une selection.

sous PHP et C,C++ il existe egalement cette selection sous la denomination "switch" et fonctionant de la meme maniere que l'instruction CASE .. OF du pascal.

l'instruction ELSE presente dans l'instruction CASE ne correspond pas vraiment au meme ELSE qu'une instruction IF..THEN.
Dans IF..THEN, ELSE correspond a SINON.
Dans un CASE .. OF, il serait plus approchant du "Pour les autres choix non cit&#233;s". bien sur, pour en faciliter la lecture et l'ecriture ELSE a ete utilis&#233;.
C'est d'ailleur souvent pour cela qu'on confond le switch CASE..OF avec une condition bool&#233;ene.

donc bien que l'exemple d'elguevel soit bon en tout point, il a comis une petite erreur en ecrivant "Case (condition) of" ...
il aurait du ecrire "Case (variable ordinale) of"

il serait faux d'ecrire :

case X = 2 of 

par contre, comme un bool&#233;en peu etre consid&#233;r&#233; comme une valeur ordinale on peut donc switcher le retour et donc une condition peut etre mise sous cette forme :

case (x = 2) of 
true :
false:
end;

mais un tel code n'est pas propre. on eviteras toujours de "switcher" un bool&#233;en, mieux vaut passer cette condition dans un if..then :

if (x = 2) then begin
end else begin
end;

bien qu'en assembleur le nombre d'instructions soit identique pour un if sur bool&#233;en ou un case sur bool&#233;en...
mais par soucis de convention, on passeras les bool&#233;ens dans les conditions a retour bool&#233;en et les ordinaux dans les switchs.

voila.

elguevel · Answer

C'est expliqu&#233; dans la doc. et &#231;&#224; se trouve de partout, mais petit exemple quand m&#234;me :

Case ( condition ) of
    0 : Action pour choix Zero;
    1 : Action pour choix Un;
  else Autre choix pas cit&#233; dans les cas precedent;
end; // Fin du Choix

++

ElGuevel.

Cirec · Answer

Salut,
eh, franchement F0xi, tu devrais &#233;crire des bouquins pour d&#233;butants.
Je trouve &#224; chaque fois tes explications claires, nettes, pr&#233;cises et compl&#232;tes 
et en plus facile &#224; comprendre.

Bravo je donne 10/10
euh non c'est pas ici domage  

@+
Cirec

jlen100 · Answer

salut,

petite rectification pour l'ordinal : c'est toute valeur unaire;
incluant l'int64 donc l'&#233;tendu n'est pas 0 &#224; 255 mais 
-2^63..2^63-1  il y a une petite diff&#233;rence!!

le case a &#233;t&#233; introduit pour simplifi&#233; l'&#233;criture des suites de tests comme

if condition= valeur1 then

begin

end else

    if condition=valeur2 then

    begin

    end else

        .

        .

        .

            if condition=valeurN then

            begin

            end;



dans sa tructure elle reprend ce qui ce fait en assembleur ou 
l'on utilise une table de vecteurs et une liste de selecteurs (encore
que la Pascal ait introduit les ensembles born&#233;s qui sont trait&#233;s
diff&#233;rement en asssembleur) on cherche le N&#176; du vecteur et on appelle
la routine &#224; l'adresse contenue dans le vecteur. (redirection avec
retour)

 Donc si l'on tient compte de cette structure il n'y a aucun int&#233;r&#234;t &#224; utiliser une instruction  case  si
le nombre de branchements est <3  et il vaut mieux dans ces cas
utiliser le IF  THEN ELSE qui produira un code plus l&#233;ger et plus
efficace.

de la m&#234;me mani&#232;re il vaut mieux placer en premier les actions les plus fr&#233;quemment utilis&#233;es (on diminue le nombre de tests)



Le fonctionnement des instructions Case du Pascal et switch du  C est l&#233;g&#232;rement diff&#233;rent 

en C si vous &#233;crivez



switch (condition){

case 1 : action1;

break;

case 2 :action2

break;

}

ou 

switch (condition){


case 1 : action1;


case 2 :action2


}


vous aurez 2 r&#233;sultats diff&#233;rents

dans le premier cas si la condition 1 est rempli elle et elle seule
sera &#233;x&#233;cut&#233;e quelque soit la valeur qu'elle prendra dans action1
(c'est le role du break qui oblige la sortie)



dans le second cas la condition est test&#233;e &#224; chaque case ainsi si
condition = 1 au d&#233;part action1 sera ex&#233;cut&#233;e si action 1 modifie le
valeur de la condition et qu'elle devient condition=2 alors action2
sera ex&#233;cut&#233;e

d'autre part en C le switch n'admet pas les ensembles born&#233;s 



mis &#224; part ces pr&#233;cisions,Foxi  tes explications &#233;taient parfaites





@+

jlen

f0xi · Answer

oui jlen! merci pour cette correction! j'ai confondus avec les ensembles ... &#231;a arrive.

vus qu'on peu faire un case :

case I of
1..1000    : ...
1001..2000 : ...
end;

elguevel · Answer

:-|  h&#233; b&#233; ... 

je repondais juste &#224; "comment fait on pour utiliser la fonction case of... avec 3 cas" c'est tout .. lol

mais c'est vrai que l&#224; ta tout d&#233;taill&#233; ... 

++

Bacterius · Answer

Bonjour,
il est donc impossible d'utiliser case ... of pour des chaînes de caractères ? :(

genre :  

case Txt.Lines.Strings[9] of
'Propos1': (Code)
'Propos2': (Code)
...

?
Dommage si ca ne l'est pas :s

Cordialement, Bacterius !

jlen100 · Answer

dans ton exemple Txt.Lines.Strings[9] est un scalaire 
(9eme caractère de la chaine) pour utiliser le case of avec une 
chaine entiere ce n'est pas possible effectivement l'instruction 
case n'autorise que le types scalaires
on peut toutefois contourner le problème en créant une liste de chaine
dans une Tstringlist par exemple et récupérer l'itemIndex par 
un IndexOf et l'utiliser comme paramètre du case.

jlen

Bacterius · Answer

Bonjour,
Ok merci :p

Cordialement, Bacterius !

Utiliser les cas en delphi

9 réponses

Votre réponse

Discussions similaires