variable objet.

Bonjour à tous.
Je suis débutant en Delphi2005 et voila ma question.
J'ai 100 objets Tedit appelés C1,C2,...C100;
Je voudrais modifier leur propriété .text dans une boucle for:
For i:=1 to 100 do
'C'+i.text:='texte...'//ca ne fonctionne pas
end

Je sais que
c1.text:=...
c2.text:=...
fonctionne mais quelle galere !
En windev {"C"+i}="blabla" fonctionne( construction dynamique)
Un coup de pouce ?
Merci d'avance. :roll:

Voilà pour toi

Code:

---

1 2	for i:=1 to 100 do (FindComponent('c'+IntToStr(i)) as TEdit).text:='...'

---

Le FindComponent marche très bien, mais est lent, car il recherche séquentiellement ton composant dans tous les composants existants (du même composant propriétaire tout du moins). Avec 100 TEdit, cela est dommage de perdre du temps à rechercher tes TEdit.

Ce qui serait interressant dans ton cas, c'est de regrouper tous tes TEdits dans un même panel 'MonPanel' et ensuite

Code:

---

1 2	for i := 0 to MonPanel.ControlCount - 1 do TEdit( MonPanel.controls[ i ] ).Text := 'ton texte';

---

Le rajout ou la suppression de TEdit dans ton panel sera pris en compte automatiquement aussi de cette manière.

Si tu a d'autres composants dans ton panel (normalement non puisque tu l'as créé pour cette tache), intercale

Code:

---

1 2	if ( MonPanel.Controls[ i ] is TEdit ) then ...

---

HOUA.
Première question...
Et réponse dans la seconde...
Je vous remercie tous.
Ce forum et surtout ses participants sont fantastiques !
MERCI :D

si tu as 100 TEdit, je suppose qu'ils ont été créés dynamiquement.
il aurait été judicieux de les créer dans un tableau de TEdit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var TabEdit: array[1..100] of TEdit; i: Byte; begin for i:=1 to 100 do begin TabEdit[i]:=TEdit.Create; with TabEdit[i] do begin Name:='C'+IntToStr(i); Text:='salut le n° '+IntToStr(i); Top:=150+i*20; end; end; end;

---