cs_Teardrop
Messages postés16Date d'inscriptionjeudi 17 janvier 2002StatutMembreDernière intervention 5 février 2002
-
22 janv. 2002 à 22:00
cs_Teardrop
Messages postés16Date d'inscriptionjeudi 17 janvier 2002StatutMembreDernière intervention 5 février 2002
-
25 janv. 2002 à 16:57
Bonjour,
Voici mon probleme (en esperant etre au bon forum pour ca :)
considérons que j'ai 10 CheckBox sur une fiche, chacune correspond a une valeur dans le registre (String 'YES/NO' ou Integer '1/0').
comment initialiser l'etat 'Checked' des CheckBox sans faire 10 'if...then...else' à la suite?
a moins que ce ne soit le seul moyen...?
Merci d'avance.
cs_rtfm
Messages postés26Date d'inscriptionmercredi 9 janvier 2002StatutMembreDernière intervention14 mars 2003 24 janv. 2002 à 15:30
Il y a moyen. Dans le début de ton unit.. dans type.. apres la définission de la classe met
TFooClass = class(TControl);
maintenant dans ton code
procedure .........;
var
k: byte; // compteur
begin
for k:= Self.Controlcount -1 downto 0 do
begin
if(TFooClass(Self.Controls[k]).Classname = 'TCheckBox' then
TFooClass(self.Controls[k]).Checked := True;
end;
end;
L'indentation est pourri, mais ca devrait t'aider..