cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 2013
-
15 mars 2003 à 14:16
Utilisateur anonyme -
18 août 2007 à 00:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
j'ai un programme simple je voudrer supprimer un composant oou cour d'execution du programme
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 15 mars 2003 à 21:36
Ca ne fera pas une seule ligne de code, au contraire !
Suggestion : utilises plutôt un TControl qu'un TObjet.
Mais tu as raison, chacun son style ou ses préférences. L'essentiel est de bien comprendre ce que l'on fait.
cs_stailer
Messages postés507Date d'inscriptionjeudi 28 mars 2002StatutMembreDernière intervention13 mai 20091 15 mars 2003 à 14:37
Ah ok, merci pour l'info... Par contre je peux garder la même méthode et créer une variable
MonObjet : TObject
Aprés c'est une question de préférence et de réutilisation.
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 15 mars 2003 à 14:16
La méthode employée est discutable dans la mesure où tu affectes une autre valeur au paramètre sender de la méthode Click d'un bouton.
Alors qu'il suffit de faire :
for i := 0 to ComponentCount -1 do
if Components[i] is TCheckBox then
with Component[i] as TCheckBox do
if Checked then
memo1.Lines.Add('La ' + Components[i].Name + ' est cochée')
else
memo1.Lines.Add('La ' + Components[i].Name + ' est décochée');
Pour éviter toute confusion, surtout si ton pote débute : rappelons que Sender est en fait un pointeur (caché, merci Delphi) sur l'objet qui a déclenché l'évènement.
Alors, si tu changes sa destination en cours de route, ça devient confusionnel...
18 août 2007 à 00:41
15 mars 2003 à 21:36
Suggestion : utilises plutôt un TControl qu'un TObjet.
Mais tu as raison, chacun son style ou ses préférences. L'essentiel est de bien comprendre ce que l'on fait.
15 mars 2003 à 14:37
MonObjet : TObject
Aprés c'est une question de préférence et de réutilisation.
15 mars 2003 à 14:16
Alors qu'il suffit de faire :
for i := 0 to ComponentCount -1 do
if Components[i] is TCheckBox then
with Component[i] as TCheckBox do
if Checked then
memo1.Lines.Add('La ' + Components[i].Name + ' est cochée')
else
memo1.Lines.Add('La ' + Components[i].Name + ' est décochée');
Pour éviter toute confusion, surtout si ton pote débute : rappelons que Sender est en fait un pointeur (caché, merci Delphi) sur l'objet qui a déclenché l'évènement.
Alors, si tu changes sa destination en cours de route, ça devient confusionnel...