Une boucle pour scanner des Tedit

Question

Bonjour tt le monde,

je me demandais s'il est possible de scanner plusieurs Tedit ayant un nom composé d'une racine similaire et d'un numéro ordinal a l'aide d'un for.

EX.: tab1,tab2,tab3,tab4,TEMP: Tedit;

for j := 0 to 4 do
begin
   TEMP:= 'tab' + j;
   if temp.text = '' then
   (...)
end;

Merci 
Jeff

PhGORMAND · Answer

Le seul moyent, est de créer un tableau de TEdit.

Exemple :

Var
   TabEdit  : Array[1..10] Of TEdit;

Procedure TForm1.CreeEdit(Sender : TObject);
Var
   I   : Integer;

Begin
    For I:=1 to 10 Do
   begin
     TabEdit[1]:=TEdit.Create(Self);
     With TabEdit[I] Do
      begin
           Top:=I + 20;
           left:=10;
           Parent:=Form1;
           .....
           Etc....
           .....
     end;
  end;

Plus loin : TabEdit[1].Text := ' Toto';

Il faut penser aussi à détruire le tableau
quand on en a plus besoin :  

For I:=1 to 10 Do TabEdit[I].free;

http://philippe.gormand.free.fr

Tu verras sur mon site WEB, dans la section 
DELPHI\ Exemples  la création d'un tableau de
boutons.
A+

MasterJ · Answer

Salut phGORMAND
De cette facon, je ne peux pas utiliser mes Tedit deja creer.  Y aurait-il une facon d'utiliser mes Tedit car je ai exactement 50 sur lequelles je dois faire du traitement.  Ils sont répartient sur 5 onglets.

Merci 
Jeff

garnotte · Answer

Salut MasterJ,

Tu peux faire ton itération avec la méthode FindComponent.  Cette méthode attend que tu passes en paramètre le nom du composant à rechercher, comme dans l'exemple ci-dessous:

var
  j :Integer;
  c : TComponent;

for j := 0 to 4 do
begin
  { Récupérer le composant }
  c := oMaForm.FindComponent( 'nom_du_composant' ++ StrToInt( j ) );

  { Maintenant, tu fais ton traitement avec c, sans oublier de le caster en TEdit pour ton problème }
  TEdit( c ).Text := 'Salut bonhomme';
end;

J'espère que ça va t'aider.

Bonne journée!

cs_Manu93 · Answer

Je veux juste corriger une petite erreur de garnotte.

c := oMaForm.FindComponent( 'nom_du_composant' ++ StrToInt( j ) );

IL faut remplacer le StrToInt par IntToStr.
Et ca marchera

MasterJ · Answer

Merci Garnotte

C'est exactement ce que je voulais et cela fonctionne a la perfection.

Une petite correction s'impose !!! 
Dans la ligne suivante : 

c := oMaForm.FindComponent( 'nom_du_composant' ++ StrToInt( j ) );

il faut caster j dans un string avec inttostr() et pour concaténer on utilise seulement un + donc ca donne ceci : 

c := MaForm.FindComponent( 'nom_du_composant' + IntToStr( j ) );

Et le code fonctionne a merveille

@later
Jeff

garnotte · Answer

Ah, je pense que j'me suis accroché dans le + deux fois.  Je me suis gourré aussi dans le nom de la fonction à appeler.  C'est ça qui arrive quand tu n'essaie pas de compiler ton code avant de l'envoyer à quelqu'un!   :big)

Une boucle pour scanner des Tedit

6 réponses

Votre réponse

Discussions similaires