Récupérer toutes les valeurs de différentes textbox avec une boucle?Résolu

Question

Bonjour,



J'ai une 20 aine de textbox, qui ont leur nom format&#233;es pareil, sauf un chiffre &#224; la fin.



Comment r&#233;cup&#233;rer toutes ces textbox avec une boucle? On ma dit qu'il y
avait une astuce, mais la personne en question ne se rappelait plus.



Parce qu'en plus, sur chaque textbox, je dois effectuer un controle...



Merci!

cs_grandvizir · Accepted Answer

Je te code en live un truc, car &#231;&#224; devient sans fin cette histoire.

var i : integer;
    Cp : TComponent;
    Tbl : array[1..20] of string;
begin
  for i:= 1  to  20 do
    begin
      Cp: =Form1.FindComponent('a'+IntToStr(i));
      if Cp is TEdit then
        Tbl[i]:= (Cp  as  TEdit).Text;
    end;
end;

 =============
Validez les r&#233;ponses si ok...

ViewVite XP : HTML

Nargzul · Answer

juste:



if Form1.Components[x] is TShape then



pour les champs Edit, ya quelquechose devant, style Tedit???



Merci

cs_grandvizir · Answer

L'exemple que je t'ai donn&#233; fonctionne avec TShape. Par analogie, &#231;a marche avec tous les composants du moment qu'ils sont consid&#233;r&#233;s comme ce qu'ils sont.

var Edt : TEdit;
begin
  Edt:= nil;
   if  Form1.Components[IndexSouhait&#233;] is TEdit then
    begin
      Edt: =Form1.Components[IndexSouhait&#233;] as TEdit;
      //ensuite, Edt se comporte comme si tu avais Edit1, Edit2, ... ou Edit20
    end;
end;

===========
Validez les r&#233;ponses si ok...

ViewVite XP : HTML

Nargzul · Answer

ok, et comment l'on sait que mon "edit" qui se nomme a2  a l'index 2?

cs_grandvizir · Answer

var Edt : TEdit;
    NomDuComposant : string;
begin
  Edt:=  nil ;
  if Form1.Components[IndexSouhait&#233;] is TEdit then
    begin
      Edt: =Form1.Components[IndexSouhait&#233;] as TEdit;
      NomDuComposant:= LowerCase(Edt.Name);
       if  NomDuComposant ='a2' then
        {faire qqch} ;
    end;
end;

Ou m&#234;me encore :

var Edt : TEdit;
    NumeroDuComposant : byte; //de 0 &#224; 255
begin
  Edt:=  nil ;
  if Form1.Components[IndexSouhait&#233;] is TEdit then
    begin
      Edt: =Form1.Components[IndexSouhait&#233;] as TEdit;
      NumeroDuComposant:= StrToInt(Copy(Edt.Name,2,Length(Edt.Name))); //ne marche que pour un nom type "[UneLettre][UnNombre]"
       case  NumeroDuComposant of
        0: {edit N&#176;0} ;
        1: {edit N&#176;1} ;
        [...]
      end;
    end;
end;

 =============
Validez les r&#233;ponses si ok...

ViewVite XP : HTML

Nargzul · Answer

ouais mais si je dois mettre un select case pour chaque solution,
ou un if pour chaque solution, j'y gagne plus grand chose...
non?

cs_grandvizir · Answer

Je crois que tu ne vois pas l'astuce...

Le CASE que je viens juste de te donner sert si tu veux faire un traitement particulier sur un &#233;dit particulier. Mais du moment que la ligne Edt:= Form1.... est SUCCESSFUL, que Edt pointe sur Edit1, Edit2 ou le reste, son comportement sera celui du composant d&#233;sign&#233; par Form1.Machin

Prenons la ligne...
    Edt:=Form1.Components[IndexSouhait&#233;]  as  TEdit;
...et supposons que Form1.Components[IndexSouhait&#233;] =Edit4.

Alors, si tu fais par exemple: Edt.Color:=clBlack, c'est comme si tu faisais Edit4.Color:=clBlack.

Edt n'est qu'un composant virtuel qui se fait passer pour le composant qu'il d&#233;signe.

Ce que je comprend dans ta question, c'est que tu veux r&#233;cup&#233;rer l'objet d'apr&#232;s son nom. Voil&#224;, c'est fait ! Tu n'as plus qu'&#224; consid&#233;rer le composant dont tu connais le nom via la variable Edt.

===========
Validez les r&#233;ponses si ok...

ViewVite XP : HTML

Nargzul · Answer

oui mais je dois mettre les diff&#233;rents a1, a2---> a20 dans un
tableau nomm&#233; a[] et ayant les meme identifiants, ca eut dire que je
dois faire 20 diff&#233;rents cas dans le select case

Nargzul · Answer

ah je connnaissais pas "findcomponent"!!! Merci bien pour ta r&#233;ponse, tout s'&#233;claire!

Récupérer toutes les valeurs de différentes textbox avec une boucle?

9 réponses

Votre réponse

Discussions similaires