Discussion :

[gregco1]

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.

[MD Software]

Voilà pour toi

Code :

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

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

[TicTacToe]

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 :

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

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 :

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

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

[gregco1]

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

[tourlourou]

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 :

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

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;