Discussion :

[reuqnas]

Bonjour,

Je suis débutant en delphi et je voudrai savoir si il existe une manière de faire un switch en delphi car j'aimerai sélectionner une checkbox et suivant la checkbox sélectionner lui donner une valeur qui sera un string, car je veux creer un fichier ou je rentre le nom et suivant la case selectionner par la suite ce string viendra s'ajouter a la fin du nom,
exemple nom : toto et parmi mes checkbox choix1 choix2 choix3 si je choisis la première alors le nom de mon fichier sera totochoix1

Merci de votre aide

[e-ric]

Salut,

Oui cela existe, il s'agit de l'instruction case...of, l'instruction ne fonctionne qu'avec des valeurs scalaires (entier, enumérés), pour les autres types, il faut employer des if...else imbriqués.

Force est de constater que la lecture de la documentation standard ou l'étude des tutoriaux généreusement mis à disposition dans ce forum te feront le plus grand bien.

@+

[reuqnas]

je vous remercie de votre réponse, donc si j'ai bien compris dans mon cas je dois faire des if ... else comme l'exemple suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
if (Checkbox1.checked) then 
      begin                             
        msg := 'toto1';
      end                                      
    else
      if (Checkbox2.checked) then
        begin
          msg := 'toto2';
        end
      else 
        if (Checkbox3.checked) then
          begin
            msg := 'toto3';
          end
        else
          if (Checkbox4.checked) then
            begin
              msg := 'toto4';
            end  
          else
            if (Checkbox5.checked) then
              begin
                msg := 'toto5';
              end
            else
              begin                                                          
                showmessage(' Erreur, aucune case cochée ');
              end;

[e-ric]

Oui, question style, dans le cas des alternatives imbriquées, je n'indente pas de cette façon mais j'aligne tous les cas au même niveau, comme s'il s'agissait d'un case..of, cela permet de conserver une bonne lisibilité malgré tout.

@+

[popo]

Si une seule case à la fois peut être cochée. Autant utiliser des bouton radio à la place des case à cocher.
Encore mieux utiliser un TRadioGroup. Tu pourras même utiliser le case of.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
case (MonRadioGroup.ItemIndex) of
  0 : msg := 'toto1';
  1 : msg := 'toto2';
  2 : msg := 'toto3';
  3 : msg := 'toto4';
  4 : msg := 'toto5';
else
  msg := 'Erreur, aucune case cochée ';
end;

[reuqnas]

Merci de vos réponses.
De quel manière indentez vous ? Je n'arrive pas trop a visualiser votre façon de faire.
Dans mon cas je dois mal placer mon message d'erreur car lorsque je coche aucune cases il me l'indique mais il me créer un fichier avec la dernière case coché précédemment aussi, et comment faire pour interdire de cocher plusieurs cases

[GoustiFruit]

Dans mon cas je dois mal placer mon message d'erreur car lorsque je coche aucune cases il me l'indique mais il me créer un fichier avec la dernière case coché précédemment aussi, et comment faire pour interdire de cocher plusieurs cases

Pour n'avoir qu'une seule case de cochée à la fois, choisir les TRadioButton (comme l'a dit popo) au lieu des TCheckBox. Et pour être sûr d'avoir au moins une case cochée, la pré-cocher !
Ensuite tu peux ruser pour simplifier ton code, par ex. en nommant directement tes TRadioButton en toto1, toto2, toto3, etc. et dans le OnClick du premier TRadioButton tu fais un:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msg := (Sender as TRadioButton).Name;

et tu assignes le même événement aux autres TRadioButton

Tu peux aussi passer par la propriété Tag et faire quelque chose comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  msg: string;
  i: Integer;
begin
  i := (Sender as TRadioButton).Tag;
  case i of
    1: msg := 'toto1';
    2: msg := 'toto2';
    3: msg := 'toto3';
    4: msg := 'toto4';
    5: msg := 'toto5';
    6: msg := 'toto6';
  end;
 
  // travail avec msg...
end;

[e-ric]

C'est plutôt simple, en reprenant ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  if (Checkbox1.checked) then 
    msg := 'toto1'
  else if (Checkbox2.checked) then
    msg := 'toto2'
  else if (Checkbox3.checked) then
    msg := 'toto3'
  else if (Checkbox4.checked) then
    msg := 'toto4'
  else if (Checkbox5.checked) then
    msg := 'toto5'
  else
    showmessage(' Erreur, aucune case cochée ')
  end;

Ca ne change rien sur la fonction du code mais je trouve que la structure du code ressort tout aussi bien et évite à l’œil des translations inutiles.
Je me suis permis d'ôter les begin/end qui alourdissent un peu le texte.
Pour interdire de cocher plusieurs, utilise un radiogroup, composant spécialement réservé à cet effet (un choix unique parmi des alternatives exclusives), comme le suggère popo.
Par contre,

car lorsque je coche aucune cases il me l'indique mais il me créer un fichier avec la dernière case coché précédemment aussi

c'est assez curieux, n'aurais-tu pas placé le code en question dans un gestionnaire OnClick partagé entre toutes les CheckBox ?

@+