ComponentCount à problème

Version imprimable

J'ai un petit programme avec sur la FORM :
- 8 RadioButton,
- 1 Memo
- 4 Button

A certains moment je cherche à savoir quel RadioButton est coché.
J'utilise le code suivant pour déterminer son index :
Code:

1 2 3 4 5 6 for i := 0 to ComponentCount -1 do if Components[i] is TRadioButton then with Components[i] as TRadioButton do if CHECKED then numero_radio:=i; numero_radio:=numero_radio-1;
Dans ce cas je suis obligé d'enlever 1 pour avoir le bon index.

Problème : si je rajoute un simple LABEL à ma FORM le numéro n'est plus bon !
(Il faut enlever 2 !!)
Que se passe-t-il donc ? Mon nb de buttonRadio ne varie pas pourtant.
MERCI de vos explications éclairées ...

28/09/2006, 09h11
TicTacToe

Bonjour,

Ce numéro est pour quel usage après ce traitement ?
Car si l'usage est pour un FindComponent après ta boucle, ceci est normal.
Ce sera meme de plus en plus aléatoire.

Quand on pose des composants, il sont nommés automatiquement
'Label1', Label2'...
'RadioButton1', RadioButton2' ..

Components[ 0 ] peut être le composant nommé 'Label1'
Components[ 1 ] peut être le composant 'nommé' RadioButton3'

--> auquel cas, le 1 de Label1 n'a rien a voir avec l'indice du tableau de composant 0

Enfin, si j'ai bien compris ton interrogation

Donc au lieu de sauver l'indice, il te faut sauver le nom du composant pour l'utiliser dans le FindComponents éventuellement.
28/09/2006, 09h13
tourlourou

à quoi peut donc bien te servir d'avoir l'index ?

mieux vaut garder un pointeur

Essaye avec l'évenement OnClick sur tes RadioButton comme ceci.
ce petit progr. ne fait qu'afficher le numéro du Radio qui a été clické en dernier mais tu peux faire appel à la même fonction dans chaque procédure sans oublier un paramètre "NrChecked".

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    Button1: TButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    NrChecked : integer;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
    NrChecked := 1;
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
NrChecked := 2;
end;
 
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
NrChecked := 3;
end;
 
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
NrChecked := 4;
end;
 
procedure TForm1.RadioButton5Click(Sender: TObject);
begin
NrChecked := 5;
end;
 
procedure TForm1.RadioButton6Click(Sender: TObject);
begin
NrChecked := 6;
end;
 
procedure TForm1.RadioButton7Click(Sender: TObject);
begin
NrChecked := 7;
end;
 
procedure TForm1.RadioButton8Click(Sender: TObject);
begin
NrChecked := 8;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Num Checked : ' + IntToStr(NrChecked));
end;
 
end.

Pourquoi ne pas utiliser le tag des radiosbouttons pour les referencer?
parce que la l'index de composant c'est pas le top à mon avis :?
Code:

1 2 3 4 5 for i := 0 to ComponentCount -1 do if Components[i] is TRadioButton then with Components[i] as TRadioButton do if CHECKED then numero_radio:=Components[i].tag;
Mais bon il faudrait en savoir plus sur le but/besoin pour faire un truc plus carré.

edit:j'avais pas fait gaffe, mais pour les radios bouttons, logiquement un seul doit etre coché sur le controle non? j'ai pas delphi sous la main, mais normalement tu as une propriété du controle qui englobe les radios pour savoir lequel est coché, tout simplement.

28/09/2006, 15h43
DURVILLE

En fonction du numéro repéré j'ouvre un fichier texte associé qui est affiché dans un memo.

Ex : pour RadioButton1 j'ouvre Memo_truc1.txt
pour Radiobutton2 : memo_truc2.txt etc...

La réponse de Malone me paraît intéressante.
Celle de Tic Tac Toe donne l'explication du phénomène.

Merci à tous.
Il faut que je teste l'usage de "tag" avant de marquer résolu.
28/09/2006, 16h38
tourlourou

et si tu appelais tes RadioButton "Memo_Truc1.txt" etc et récupérais le RadioButton Sender d'un OnClick :

Code:

with Sender as TRadioButton do Fichier:=Name;
28/09/2006, 17h22
DURVILLE

Usage de tag : plus possible pour moi vu que je l'utilise déjà (créé dynamiquement pour un autre usage --> mon post précédent!)

Tourlourou : c'est une idée ... Je regarde. mais je ne fais pas de click sur le RadioButton pour cet usage : uniquement pour appeler le texte du memo qui s'affichera.
J'ai besoin de savoir combien j'ai de Radiobutton VISIBLES à un certain moment lorsque je veux en créer un dynamiquement : par un click sur simple Button nommé par ex. "Ajout d'un mémo" ou "Suppression d'un memo"

En fait j'aurai dû utiliser un RadioGroup !!! (Les items m'auraient sauvé la mise je crois)
28/09/2006, 17h26
Linkin

Le plus efficace est toujours de passer par le pointeur (qui correspond à Components[i]), non?
28/09/2006, 22h13
DURVILLE
Pointeur (linkin) ... je ne suis hélas pas de niveau pour m'en servir ...

Reste que je ne pige pas pourquoi ce code pourtant explicite
Code:

1 2 if Components[i] is TRadioButton then with Components[i] as TRadioButton
ne détecte pas QUE les radiobuttons ... ça dépasse ma logique ...:roll:

'Soir !
Une form, dessus 1 label, 1 edit, 1 checkbox, 2 radiobutton, et ça :
Code:

1 2 3 4 5 6 7 procedure TForm1.FormActivate(Sender: TObject); var i : integer; begin for i := 0 to ComponentCount - 1 do if Components[i] is TRadioButton then ShowMessage(Components[i].Name); end;
Et je ne vois que 2 messages, "RadioButton1" et "RadioButton2".
Ce que je ne m'explique pas, par contre, c'est le message d'erreur "Index de liste hors limite (2)" si je rajoute après la ligne "if" ta ligne

Code:

with Components[i] as TRadioButton

Mes 2 cts,
--
jp

Je l'ai fait "à la main", ça ne donne un résultat correct que s'il n'y a qu'un radiobutton de cocher (s'il y en a deux ça ne donne que le premier trouvé).
S'il n'y en a pas, ça renvoie nil
Code:

1 2 3 4 5 6 7 8 9 10 11 12 function GetCheckedRadioButton : TRadioButton; var i : Integer; begin Result := nil; i := 0; while (i < ComponentCount) and (Result = nil) do if Components[i] is TRadioButton then if TRadioButton (Components[i]).Checked then Result := TRadioButton (Components[i]); end;

29/09/2006, 09h42
Malone

A mon avis vu ton besoin (associer un fichier texte a un radio) , le plus interessant serait de créer un nouveau compo qui herite de radio boutton , en lui ajoutant une propriété type string ou tu declare a la creation de ton radio le fichier texte associé.
29/09/2006, 12h50
LadyWasky

1 pièce(s) jointe(s)

Pour ta toute première question : pourquoi, lorsque tu rajoutes un TLabel, ton numéro de bouton Radio récupéré n'est plus bon ?

Parce que components est un tableau qui contient tous les composants de ta fiche, et que Delphi ne rajoute pas forcément ton TLabel en fin de liste...

Ce que je te suggère, c'est de créer un Tableau de TRadioBouton que tu initialises à la création de ta fiche.

Suite de quoi, tu n'as plus qu'a parcourir ce tableau.

Voir les sources ci jointes.
29/09/2006, 14h15
DURVILLE

Merci à tous et en particulier au dernier Post de Waskol ...
(Je ne pensais pas que ma question aurait autant de réponses !! - avec des solutions variées en plus !)

Waskol : merci pour le fichier joint
du coup j'ai appris :
- La procedure "include" que je n'avais jamais vue
- Le passage de paramètres (?) dans une cha^ne :

Code:

('Le bouton radio N°%u est coché',[i+1])

(C'est moi qui ait rajouté +1, sinon il y avait un écart !)
29/09/2006, 14h26
LadyWasky

Pour les ensembles, tu as aussi l'inverse de Include : Exclude()

:ccool: