RadioButton et CheckBox

Version imprimable

20/02/2008, 21h41
breizh44

RadioButton et CheckBox

Bonsoir,

J'ai une application qui comporte plusieurs radiobutton et checkbox sur une même Form (en fait c'est un configurateur).

J'aimerais que quand je clique sur un bouton "Récapitulatif", cela m'ouvre une nouvelle Form (ça c'est fait), et que dans une Editx de la nouvelle Form, je retrouve toutes les captions des radiobutton et checkbox dont la valeur est à true.

Je connaissais la synthaxe vb qui consistait à faire une boucle
for i=1 to x
if userform1.controls("checkbox" & i). caption = true then scregnegne...
next

Existe-t-il la même chose en Delphi?

Merci

Et bien, il y a cela qui existe

Code:

1
2
3
4
5
6
7
for i:=0 to controls.count - 1 do
begin
   if controls[i] is tCheckbox then  
   begin
      if tCheckbox(controls[i]).checked then scregnegne...
   end;
end;

Oui c'est un truc dans le style :

Code:

1
2
3
4
5
6
for i:= 0 to userform1.ControlCount - 1 do 
   if userform1.controls[i].Checked = true then 
   begin
 
 
   end;

20/02/2008, 22h03
breizh44

Merci à tous!

pas facile de débuter, mais tellement motivant.

Sympa.
20/02/2008, 22h57
ero-sennin

Merci de cliquer sur :resolu: si tout est OK

Cette méthode ne fonctionne pas avec mon programme!

Le message "La variable de boucle for doit être de type ordinal" s'affiche.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button4Click(Sender: TObject);
var i : real;
begin
form2.Label2.Caption := edit3.Text;
form2.memo1.Text := 'Type de capteur : ' +  comboboxex1.Text+ #13#10 + 'Diamètre : ' + edit1.Text + ' mm' + #13#10 + 'Longueur : ' + edit2.text + ' mm'+ #13#10 + #13#10;
 
for i:=0 to radiogroup1.controlcount - 1 do //Ca bloque là!!
      if tCheckbox(controls[i]).checked := true then
begin
      form2.Memo1.Text= form2.Memo1.Text+ 'Caractérisation :' + #13#10;
end;
form2.show;
end;

21/02/2008, 21h46
ero-sennin

Salut,

Il te faut déclarer i en Integer ! ;)
A+ ;)
21/02/2008, 22h02
breizh44

Merci mais pas plus!

Cela m'affiche :

[Pascal Erreur] dethermine.pas(184): E2012 Le type de l'expression doit être BOOLEAN
21/02/2008, 22h51
ero-sennin

Re,

C'est cette ligne la qui merde :

Code:

if tCheckbox(controls[i]).checked := true then

Il faut mettre :

Code:

if tCheckbox(controls[i]).checked = true then

ou encore

Code:

if tCheckbox(controls[i]).checked then

Logiquement, ça devrait aller ....
A+