Balayer 100 checkbox sans 100 IF
Résolu
lombricator
Messages postés
6
Date d'inscription
lundi 5 mai 2003
Statut
Membre
Dernière intervention
13 avril 2004
-
26 mai 2003 à 20:50
speletux Messages postés 30 Date d'inscription jeudi 31 mars 2005 Statut Membre Dernière intervention 6 février 2014 - 23 sept. 2005 à 06:33
speletux Messages postés 30 Date d'inscription jeudi 31 mars 2005 Statut Membre Dernière intervention 6 février 2014 - 23 sept. 2005 à 06:33
4 réponses
speletux
Messages postés
30
Date d'inscription
jeudi 31 mars 2005
Statut
Membre
Dernière intervention
6 février 2014
23 sept. 2005 à 06:31
23 sept. 2005 à 06:31
Essaie un truc du type:
var
i: integer;
begin
for i:=0 to self.ControlCount -1 do begin
if (Controls[i] as TCheckBox) then begin
if TCheckBox(Controls[i]).Checked then begin
// ton traitement si c'est vrai
end;
end;
end;
end;
var
i: integer;
begin
for i:=0 to self.ControlCount -1 do begin
if (Controls[i] as TCheckBox) then begin
if TCheckBox(Controls[i]).Checked then begin
// ton traitement si c'est vrai
end;
end;
end;
end;
speletux
Messages postés
30
Date d'inscription
jeudi 31 mars 2005
Statut
Membre
Dernière intervention
6 février 2014
23 sept. 2005 à 06:33
23 sept. 2005 à 06:33
Erreur: Remplacer as par is :
if (Controls[i] is TCheckBox) then begin
if (Controls[i] is TCheckBox) then begin
Guillemouze
Messages postés
991
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 août 2013
6
25 oct. 2003 à 23:19
25 oct. 2003 à 23:19
je sais pas trop si c'est possible mais en tout cas, je sais qu'en php, tu peu nommer tes checkbox 'chk[1], chk[2],...'
et apres tu fai une boucle du genre:
voila j'espere que ca t'aura aidé ;)
-=Guillemouze=-
et apres tu fai une boucle du genre:
for i:=1 to 100 do if chk= val then [i]script ;
voila j'espere que ca t'aura aidé ;)
-=Guillemouze=-
Guillemouze
Messages postés
991
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 août 2013
6
25 oct. 2003 à 23:22
25 oct. 2003 à 23:22
bon ya un trip dans ma parti de code et je trouve pas le bouton pour editer mon message alors j'te le remet:
for x:= 1 to 100 do if chk[x]= val then script
