Discussion :

[breizh44]

Bonsoir,

Je souhaite par appui sur un bouton remettre toutes les radiobutton d'un radiogroup à false.

Seulelement je n'arrive pas à trouver cette var dans la liste proposée.

Sur l'aide je vois SetRadioItems, mais cela ne marche pas, car je n'ai pas ce genre de propriété (radioItem selon F1 Delphi)

merci.

[Zaki_SDwin]

Salut essaye avec ce code ça marche avec tous les composants

Code :

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

1
2
3
4
5
6
7
8
Var i : integer;
begin
for i := 0 to ComponentCount-1 do
begin
if (Components[i] is TRadioButton) then
(Components[i] as TRadioButton).checked:=false;
end;
end;

[breizh44]

Désolé Zaki, ton code ne marche pas. Mes radio sont dans des radiogroup. Ils restent à true avec ton code.

J'ai regardé l'aide delphi et il est stipulé l'instruction SetRadioItems.

Merci quand même.

[ero-sennin]

Salut,

Ce code sans doute :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button2Click(Sender: TObject);
var
 i:integer;
begin
  for i:=0 to RadioGroup1.Items.Count-1 do
  begin
    RadioGroup1.Buttons[i].Checked:=false;
  end;
end;

A+

[breizh44]

Et encore merci ero! Bon à savoir pour les débutants comme moi, si vous donnez une valeur fixe à la fin de boucle, alors sachez que les radio d'un radiogroup commencent à 0. Donc si vous avez 5 radio la veleur de fin de boucle devra être 4.

[Aka Guymelef]

En effet cela est dû au traitement des tableaux (ou des listes qui se base sur des tableaux) le premier index est 0. Néanmoins les objets (ou SetLength pour obtenir la taille du tableau) renvoient le nombre d'élément total (5 par exemple) or si on fait une boucle de 0 à 5 on itère 6 fois donc une fois de trop. C'est pourquoi il faut toujours décrémenter de 1 son total d'élément.

Il existe cependant des exceptions :

- les chaînes de caractères : leur premier index commence à 1. C'est pourquoi par exemple pour copier à partir du premier caractère on doit passer index = 1

- les tableaux statiques : en règle général on déclare ces derniers comme tab: array[0..n] of cette déclaration suit les règles précédentes pas de problèmes. Néanmoins rien n'empêche d'écrire ceci tab: array[-1..2] of dans ce cas le premier index n'est pas 0 mais -1 puis 0 puis 1 puis 2. L'utilisation de tableaux en base différente de 0 peut être utile dans certains cas mais est à déconseiller dans la plupart des cas pour rester iso à la norme standard algorithmique qui fait commencer les indices de tableaux à 0.

[guillemouze]

et pourquoi pas un tout simple

Code :

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

RadioGroup1.ItemIndex := -1

?

[ero-sennin]

et pourquoi pas un tout simple

Code :

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

RadioGroup1.ItemIndex := -1

?

Je n'y avais pas pensé !
Maintenant que tu le dis, ça me revient ... et c'est surtout plus logique.
On peut également faire comme ceci (peut être plus clair pour la maintenance du code ...)

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  RadioGroup1.Buttons[RadioGroup1.ItemIndex].Checked:=false;
end;

A+