stocker le choix d'un RadioGroup en DelphiRésolu

Question

Bonjour, c'est encore moi :p

Je cherche le moyen de stocker le choix d'un RadioGroup en Delphi

comme par exemple: l'utilisateur &#224; 4 choix, il en choisit un(en cliquant sur le point) et ce qu'il a cliqu&#233;(le texte du choix(Ex:Oui)) doit &#234;tre stock&#233; dans une variable string et ensuite doit s'afficher dans un menu....tout fonctionne &#224; part la saisie du choix et du stockage de ce dernier dans une variable...

j'esp&#232;re que c'est assez clair pour vous, lol

Merci d'avance :)

cs_alex75000 · Accepted Answer

d'accord, je m'en doutais un peu, haha

Formno3.Memo1.Lines.Add(Salaire:'+Salaire);

Salaire &#233;tant la variable String

voici ce que j'ai

------------------------------------------------------
procedure TForm1.RadioGroup3Exit(Sender: TObject);  (J'ai aussi essay&#233; avec d'autre &#233;v&#233;nements
begin
if RadioGroup3.ItemIndex= 0 then

Salaire:='de 0 &#224; $10 000'

 else if RadioGroup3.ItemIndex = 1 then


   Salaire:='de $10 000 &#224; $20 000'


  else if RadioGroup3.ItemIndex = 2 then


     Salaire:='de $20 000 &#224; $50 000'


    else if RadioGroup3.ItemIndex = 3 then
    
      Salaire := '$50 000 et plus'

(j'ai essay&#233; de plusieurs fa&#231;ons, mais j'ai sauvegard&#233; avec cela)
---------------------------------------------------

j'ai aussi essay&#233; avec Radiogroup.Items.Text, mais &#231;a non plus &#231;a ne fonctionne pas, la variable reste vide

est-ce c'est un peu plus clair???

japee · Answer

C'est encore toi ? lol 



Non, c'est pas trop clair...  



Un bout de code serait le bienvenu, pour comprendre o&#249; est le probl&#232;me...

cs_Delphiprog · Answer

Utilises plut&#244;t l'&#233;v&#232;nement click du radiogroup.
R&#233;ponse en code :
var
  Salaire: string;

procedure TForm1.RadioGroup3Click(Sender: TObject);
begin
with RadioGroup3 do
    Salaire :=  TRadioButton(Components[ItemIndex]).Caption;
  //pour v&#233;rification :
  Formno3.Memo1.Lines.Add(Salaire:'+Salaire);
 end ;

Comme &#231;a, pas de If en cascade ou imbriqu&#233;s mais une r&#233;ponse directe !


<HR color =#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
<

cs_Kenavo · Answer

Salut,



Ce serait encore plus clair si tu utilisais un Case Of ! 



Case RadioGroup1.ItemIndex of

   0 : Salaire :=  'de 0 &#224; $10 000';

   1 : Salaire := 'de $10 000 &#224; $20 000';

   2 : Salaire := 'de $20 000 &#224; $50 000';

   3 : Salaire := '$50 000 et plus';

  end ;



Si tu utilises 
Radiogroup.Items.Text, tu r&#233;cup&#232;res tous les intitul&#233;s des RadioButton du groupe.

Utilise RadioGroup.Items[RadioGroup1.ItemIndex].



Mais vu ton probl&#232;me, tu devrais regarder si la variable Salaire n'est pas d&#233;clar&#233;e plusieurs fois ...



Ken@vo
<hr size ="2" width="100%">Code, Code, Codec !


http://www.pourflorenceethussein.org/

cs_Delphiprog · Answer

Arf, Kenavo, nos r&#233;ponses se sont crois&#233;es.
N&#233;anmoins, la solution que je propose me semble meilleure car :
1/ je suis sur de n'oublier aucune option dans le radiogroup 
2/ les valeurs attribu&#233;es &#224; la variable Salaire sont en totale correspondance avec ce qui est affich&#233; sur la fiche


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
<

cs_Kenavo · Answer

Enti&#232;rement  d'accord avec toi DelphiProg !



Je conseillais Case of  par principe, plut&#244;t que les If en cascade, mais &#231;a, on en a d&#233;ja beaucoup parl&#233; ici !



Par contre &#224; la place de :


  with RadioGroup3 do
    Salaire := TRadioButton(Components[ItemIndex]).Caption;



J'aurais mis :

  Salaire := RadioGroup3.Items[RadioGroup3.ItemIndex];




Y a pas faute ? 



Ken@vo

<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

cs_alex75000 · Answer

je vous aime :)
lol

Merci

cs_alex75000 · Answer

j'y comprends rien, &#231;a ne fonctionne toujours pas :'(

cs_Delphiprog · Answer

Non, non, Kenavo, y a pas faute. C'est juste une question de style 
L'un comme l'autre, c'est pr&#233;f&#233;rable &#224; des "if" ou m&#234;me des "case of".

Alex75000 : pourrais-tu &#234;tre plus pr&#233;cis, "j'y comprends rien, &#231;a ne fonctionne toujours pas :'(", ben &#231;a ne veut pas dire grand chose.

<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
<

cs_alex75000 · Answer

il y a rien qui appara&#238;t, la variable est toujours vide avec ces deux fa&#231;ons... :(

cs_alex75000 · Answer

with RadioGroup3 do
Salaire := RadioGroup3.Item[RadioGroup3.ItemIndex];

fonctionne, c'est assez bizarre

jihelb · Answer

Normal que &#231;a ne fonctionne pas car dans :
with RadioGroup3 do
    Salaire :=  TRadioButton(Components[ItemIndex]).Caption;
le ItemIndex de RadioGroup3 indexe le Components.
Je pense qu'il suffit de changer la place de la ) with  RadioGroup3 do
    Salaire : = TRadioButton(Components)[ItemIndex].Caption;

JLB

cs_Delphiprog · Answer

jihelb : tu devrais v&#233;rifier tes r&#233;ponses avant de poster...


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
<

cs_alex75000 · Answer

entk, c'est tr&#232;s bizzare, &#231;a fonctionne pour 3 variables sur 4

japee · Answer

Bonjour tout le monde, 



J'ai du mal &#224; comprendre pourquoi les r&#233;ponses de Kenavo et de Delphiprog ne sont pas accept&#233;es ?

J'ai test&#233; pour voir, des fois que , ben &#231;a marche nickel bien entendu... 

On peut m&#234;me faire du Kenavo "am&#233;lior&#233;", et l&#224;, vraiment, je chipote : 

with RadioGroup3 do

    Salaire := Items[ItemIndex];



Bonne journ&#233;e &#224; toutes &#224; tous ! 



japee

cs_alex75000 · Answer

dans mon programme c'est assez bizarre, &#231;a fonctionne 3 fois sur 4

japee · Answer

Tu l'as bien plac&#233; dans l'&#233;v&#232;nement OnClick du RadioGroup, ton code ?

Ca doit marcher.

Sinon &#231;a signifie que ta variable globale Salaire est initialis&#233;e &#224; '' (EmptyStr) ailleurs, juste apr&#232;s ce code.

Si tu ne trouves pas, et que &#231;a ne fait pas 2000 lignes, tu n'as plus qu'&#224; balancer le listing, on essaiera de te d&#233;panner... 



Bonne prog' 



japee

cs_Kenavo · Answer

Encore un coup du lib&#233;ralisme chinoisant qui fait passer &#224; rien les salaires inf&#233;rieurs &#224; 10 000 $ 



Ken@vo

<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

[%3C/body ]

Stocker le choix d'un RadioGroup en Delphi

18 réponses

Votre réponse

Discussions similaires