boucle pour vérifier un ensemble de checkboxs

slt tt le monde
je ss un débutant en delphi
j'ai un groupbox qui contient des checkbox
je veux savoir qu'elle est la boucle pour vérifier que les checkbox sont cochés :
j'ai essayé avec :

Code:

---

1 2	for i:=0 to (groupbox1.controlcount) do showmessage checkbox(controls[i]).caption;

---

mais ça marche pas

merci d'avance !!

Salut

Ce n'est pas très clair ... Tu veux cocher toutes tes CheckBoxs, ou afficher le nom de celles qui sont cochées ?

je veux afficher de celle qui sont cochées

merci

Je n'ai pas Delphi sous la main, mais avec quelque chose comme ça:

Code:

---

1 2 3 4 5 6 7 8 9 10

for i:=0 to GroupBox1.controlcount do begin if( GroupBox1.Controls[i].ClassName = 'TCheckBox' ) then begin if TCheckBox( GroupBox1.Controls[i] ).Checked then ShowMessage( TCheckBox( GroupBox1.Controls[i] ).Name + ' est cochée' ) else ShowMessage( TCheckBox( GroupBox1.Controls[i] ).Name + ' n''est pas cochée' ) end end

---

Merci beacoup
ça marche parfaitement maintenant !!!!!
merci encore !!!!!

Salut,

J'aurai tendance à dire qu'il manque un -1 sur ControlCount.

Sinon, on peut faire ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

for i:=0 to GroupBox1.controlcount - 1 do begin if( GroupBox1.Controls[i] is TCheckBox) then begin if TCheckBox( GroupBox1.Controls[i] ).Checked then ShowMessage( TCheckBox( GroupBox1.Controls[i] ).Name + ' est cochée' ) else ShowMessage( TCheckBox( GroupBox1.Controls[i] ).Name + ' n''est pas cochée' ) end end

---