switch case en delphi

Version imprimable

17/04/2014, 11h49
reuqnas

switch case en delphi

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
17/04/2014, 12h28
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.

@+

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:

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;

17/04/2014, 15h15
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.

@+

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:

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;

17/04/2014, 15h59
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

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

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,

Citation:

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 ?

@+

1 pièce(s) jointe(s)

Citation:

Envoyé par reuqnas

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:

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:

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;

18/04/2014, 22h44
tarekk73
bon jour

peux etre lutilisation de radiogroupe et plus pratique
charger le items de RadioGroup par choix1 , choix2 ,...
Code:

1 2 3 4 procedure TForm1.RadioGroup1Click(Sender: TObject); begin label1.Caption := RadioGroup1.Items[form1.RadioGroup1.ItemIndex] end;
A+

j'ai toujours le même soucis je ne comprend pas j'ai une zone de saisie et en dessous j'ai mis du coup des radio bouton j’exécute mon code si ma zone de saisie est complétée et que un de mes boutons sont cochés, Sauf que la des que je coche un bouton et que je n'ai rien dans ma zone de saisie et ben mon fichier se créer j'aimerai qu'il y est les deux conditions, mon code est le suivant :

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
procedure FichierOnClick(Sender: TfrxComponent);                                                
var
  Num, Ligne : String;
  fichier : tfilestream;
 
Begin            
  Num := NumSerie.text;
 
  try
    begin                                  
      if ((t1.checked) and (Num.text <> ' '))  then begin                                                               
        Ligne := 'L1';                                                                                                                                          
        Memo.lines.SaveToFile(Num +'.txt');            
        showmessage('Le fichier : ' +  Num + 'txt a été créé ');
        end                                      
      else if ((t2.checked) and (Num.text <> ' ')) then begin
        Ligne := 'L2';
        Memo.lines.SaveToFile(Num +'.txt');            
        showmessage('Le fichier : ' +  Num + 'txt a été créé ');       
        end
      else if ((t3.checked) and (Num.text <> ' ')) then begin
        Ligne := 'L3';
        Memo.lines.SaveToFile(Num +'.txt');            
        showmessage('Le fichier : ' +  Num + 'txt a été créé ');
        end
      else if ((t4.checked) and (Num.text <> ' ')) then begin
        Ligne := 'L4';
        Memo.lines.SaveToFile(Num +'.txt');            
        showmessage('Le fichier : ' +  Num + 'txt a été créé ');
        end  
      else if ((t5.checked) and (Num.text <> ' ')) then begin
        Ligne := 'L5';
        Memo.lines.SaveToFile(Num +'.txt');            
        showmessage('Le fichier : ' +  Num + 'txt a été créé ');
        end
      else
        begin                                                                                                 
          showmessage('Saisir un numero valide et/ou cocher une ligne !');
        end;                              
    end;
 
 
  finally                                                     
    Num.text := '';
    Memo.lines.clear;                                                                    
  end;                              
End;

Merci

Citation:

Envoyé par reuqnas

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
procedure FichierOnClick(Sender: TfrxComponent);                                                
var
  Num, Ligne : String;
  fichier : tfilestream;
 
Begin            
  Num := NumSerie.text;
 
  try
    begin                                  
      if ((t1.checked) and (Num.text <> ' '))  then begin                                                               
        Ligne := 'L1';                                                                                                                                          
        Memo.lines.SaveToFile(Num +'.txt');            
        showmessage('Le fichier : ' +  Num + 'txt a été créé ');
        end                                      
      else if ((t2.checked) and (Num.text <> ' ')) then begin
        Ligne := 'L2';
        Memo.lines.SaveToFile(Num +'.txt');            
        showmessage('Le fichier : ' +  Num + 'txt a été créé ');       
        end
      else if ((t3.checked) and (Num.text <> ' ')) then begin
        Ligne := 'L3';
        Memo.lines.SaveToFile(Num +'.txt');            
        showmessage('Le fichier : ' +  Num + 'txt a été créé ');
        end
      else if ((t4.checked) and (Num.text <> ' ')) then begin
        Ligne := 'L4';
        Memo.lines.SaveToFile(Num +'.txt');            
        showmessage('Le fichier : ' +  Num + 'txt a été créé ');
        end  
      else if ((t5.checked) and (Num.text <> ' ')) then begin
        Ligne := 'L5';
        Memo.lines.SaveToFile(Num +'.txt');            
        showmessage('Le fichier : ' +  Num + 'txt a été créé ');
        end
      else
        begin                                                                                                 
          showmessage('Saisir un numero valide et/ou cocher une ligne !');
        end;                              
    end;
 
 
  finally                                                     
    Num.text := '';
    Memo.lines.clear;                                                                    
  end;                              
End;

Merci

quel est ce Num.text ?
Num étant défini comme string, il faut l'utilisé ainsi :

Code:

1
2
 
if ((t1.checked) and ( Num <> ' ' ))  then begin

ou alors

Code:

1
2
 
if ((t1.checked) and ( NumSerie.text <> ' ' ))  then begin

perso, je ferais ceci

Code:

1
2
3
 
 Num := trim ( NumSerie.text ) ;
 if Num <> '' then ...

Je sais pas si ça peut t'aider, mais pour pouvoir faire un case sur des chaînes de caractères, j'avais fait ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 case AnsiIndexStr(ListePrestEcole[I].TypePrest, ['HENS', 'HORS_EPFC', 'EPFC', '']) of 0: //traitement 1: //traitement 2: //traitement 3: //traitement end;
En gros la fonction AnsiIndexStr regarde si la String passé en premier paramètre est dans le tableau de String en deuxième paramètre, et renvoie l'index de l’occurrence trouvée (le tableau commence à 0).
Sur un groupe de bouton radio, tu dois pouvoir le faire directement, puisque le groupe fonctionne comme une seule entité et va te renvoyer l'index du bouton radio coché (TRadioGroup se comporte comme un tableau à ce niveau-là) et donc tu utilises directement 0,1,etc.

My 2 cents

PS: je te conseil de faire un bouton "créer fichier" qui contiendra le code à exécuter une fois les conditions remplies (case à cocher + champ remplis) si tu le fait genre sur le on change de ton champ, il te créera un fichier avec uniquement le premier caractère encodé par l'utilisateur...
Code:

1 2 3 4 5 6 7 8 9 10 11 Tsender bidule truc //en double cliquant dans l'interface sur l'event onclck du bouton, ce code est généré automatiquement begin if (TRadioGroup.checked = true) and (TEdit.Text <>'') then // on vérifie qu'au moins un des boutons radio est caché begin //traitement end; else begin ShowMessage('Y''a une couille dans le potager!'); end; end;
Le code est approximatif, vu que c'est fait en direct live, sans véritable vérification, mais l'idée est là...
avec ça tu devrais pouvoir t'en sortir sans trop de mal...

Bonjour.

"Sauf que la des que je coche un bouton et que je n'ai rien dans ma zone de saisie..."

C'est ta façon de tester ce "rien" qui est mauvaise.
if Num <> ' ' (espace entre les apostrophes) : cela veut dire "si num est différent d'un espace".
Pour tester une valeur string vide (un espace, ce n'est pas du vide !)
if Num <> ''
ou
if Length(Num) = 0

Pour tester une valeur string non vide mais composée uniquement d'espaces : comme l'a suggéré Jeromelef2, utilise la fonction trim qui supprime les espaces en début de mot et en fin de mot.
Num := trim ( NumSerie.text) ;
if Num <> '' then ...

Remarque : pour alléger ton code, ce test n'est qu'à faire une seule fois, au début de ta procedure :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 procedure FichierOnClick(Sender: TfrxComponent); var Num, Ligne : String; fichier : tfilestream; Begin Num := trim ( NumSerie.text) ; if Num = '' then begin ShowMessage('Le nom de fichier ne peut être vide'); Exit; // on quitte la procedure sans rien faire end; // ... end;
Thierry

01/05/2014, 22h40
tarekk73

1 pièce(s) jointe(s)

bon jour
je vous propose deux methode dans un seul programme
a+