Discussion :

[totof42]

Bonjour,

je cherche à éviter de faire des nombreux copiers-collers dans le code. Mon problème est le suivant :
dans une fiche, j'ai 25 TEdit et 25 boutons correspondants.
Quand je clique sur le bouton, je voudrais vider le TEdit associé. Bien sûr, je ne veux pas écrire 25 fonctions onclick identique !

Voila
A+

[Greybird]

Bonjour,

Je pense que la manière la plus élégante de faire ceci serat de créer un composant composé d'un TEdit et d'un TButton, et de coder le OnClick du TButton poru qu'il efface le TEdit du composant.
Ensuite, tu n'as plus qu'à placer 25 de ces composants sur ta fiche.

Cordialement,

Arnaud

[totof42]

Salut,

en fait ça reportera le problème un peu plus loin : j'aurai besoin d'accéder à l'un de ces 25 composants, pour remplir les TEdit à partir d'une liste de chaine d'une requête, etc.
Ce que je pense faire, mais ça ne me semble pas très propre, c'est un tableau de pointeurs sur mes composants. Comme ça, je pourrai accéder facilement aux composants de même index: dans le constructeur de ma form je remplis TObject* monTableau = {Edit1, Edit2, Edit3, Edit4, etc.} et quand je clique sur mon 4ème bouton (je sais que c'est le 4ème grace à sa valeur Tag par exemple), je vide le 4ème objet de mon tableau....
mouais, je pense que ça marche, mais je suis convaincu qu'on peut faire beaucoup mieux...


A+
PS: est-ce que j'arrive à être clair en cette fin de journée ??

[Nicolas]

Bonjour,

pour cela, on peut utiliser la méthode FindComponent :

Supposons qu'on ait 5 TEdit : Edit0,Edit1...Edit4

Pour accéder au ième :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TEdit*  pEdit  =dynamic_cast <TEdit*>  (FindComponent("Edit"  +AnsiString(i)));

Et on utilise le Tag pour faire la correspondance inverse (Composant -> indice)

Nicolas

[totof42]

VOILA !!

C'est exactement ce qu'il me fallait !!
Merci!!

A+