identification de mon edit

**aboishak** · 09/02/2009, 23h41

salut
i'ai un probleme d'itentifier mon edit apres la création voila mon code que je travaille sur lui il est bien executer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
int x=20;
 TEdit*ed ;
 TEdit*ad ;
 TLabel *lb ;
 TLabel *lab;
 int k;
 for( k=0;k<Edit1->Text.ToInt();k++)
 {
    ed=new TEdit(Panel1);
    ad=new TEdit(Panel1);
    lb=new TLabel(Panel1);
    lab=new TLabel(Panel1);
    ed->Parent=Panel1  ;
    ad->Parent=Panel1  ;
    lb->Parent=Panel1  ;
    lab->Parent=Panel1  ;
    ed->Name="myed" +IntToStr(k+1);
    ad->Name="myad" +IntToStr(k+1);
    lb->Name="mylb" +IntToStr(k+1);
    lab->Name="mylab" +IntToStr(k+1);
    ed->Width=100;
    ad->Width=100;
    ed->Text="";
    ad->Text="";
    lb->Caption="x =" + IntToStr(k+1);
     lab->Caption="y =" + IntToStr(k+1);
    ed->Left=x;
    ad->Left=x+120;
    lb->Left=x-15 ;
    lab->Left=x+120-15 ;
    ed->Top=x+30*k;
    lb->Top=x+30*k;
    ad->Top=x+30*k;
    lab->Top=x+30*k;
 }

mais ares que je veux l'identifier j'ai pas trouver la solution

Code :

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

1
2
3
int s,p;
for(k=0;k<Edit1->Text.ToInt();k++)
   p= myad IntToStr(k+1+1)->Text.ToInt() -myad IntToStr(k+1-1)->Text.ToInt

il ne travaille pas

**dz_robotix** · 10/02/2009, 09h25

salu aboishak,

Code :

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

p= myad IntToStr(k+1+1)->Text.ToInt() -myad IntToStr(k+1-1)->Text.ToInt

ton 'myad' c'est quoi au juste?

**sat83** · 10/02/2009, 09h29

Peut etre avec FindComponent :

Code :

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

1
2
p = StrToIntDef( ((TEdit*) FindComponent("myad" + IntToStr(k+1+1)))->Text, -1 )
  - StrToIntDef( ((TEdit*) FindComponent("myad" + IntToStr(k+1-1)))->Text, -1 )

**Poilou** · 10/02/2009, 10h52

Bonjour,

il y a la possibilité de passer par une TList

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
int x=20;
 TList* List_ed = new TList;
 TList* List_ad = new TList;
 
 TEdit*ed ;
 TEdit*ad ;
 TLabel *lb ;
 TLabel *lab;
 int k;
 for( k=0;k<Edit1->Text.ToInt();k++)
 {
    ed=new TEdit(Panel1);
    ad=new TEdit(Panel1);
    lb=new TLabel(Panel1);
    lab=new TLabel(Panel1);
    ed->Parent=Panel1  ;
    ad->Parent=Panel1  ;
    lb->Parent=Panel1  ;
    lab->Parent=Panel1  ;
    ed->Name="myed" +IntToStr(k+1);
    ad->Name="myad" +IntToStr(k+1);
    lb->Name="mylb" +IntToStr(k+1);
    lab->Name="mylab" +IntToStr(k+1);
    ed->Width=100;
    ad->Width=100;
    ed->Text="";
    ad->Text="";
    lb->Caption="x =" + IntToStr(k+1);
     lab->Caption="y =" + IntToStr(k+1);
    ed->Left=x;
    ad->Left=x+120;
    lb->Left=x-15 ;
    lab->Left=x+120-15 ;
    ed->Top=x+30*k;
    lb->Top=x+30*k;
    ad->Top=x+30*k;
    lab->Top=x+30*k;
 
     //Sauvegarde des pointeurs dans les listes
    List_ed->Add(ed);
    List_ad->Add(ad);
 
 }

Ensuite pour rappeler le bon edit :

Code :

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

1
2
3
4
 
int s,p;
for(k=0;k<Edit1->Text.ToInt();k++)
   p= ((TEdit)List_ad->Items[k+1+1])->Text.ToInt() - ((TEdit)List_ad->Items[k])->Text.ToInt();

Il faut par contre que les lists soit déclarées en global et attention lors du delete, il faut vider les list avant de deleter le pointeur !

En espérant que ça vous aide

PS : j'ai pas tester le code, il doit y avoir des erreurs de syntaxe.

**henderson** · 10/02/2009, 11h46

Salut !

ed=new TEdit(Panel1);
ad=new TEdit(Panel1);
lb=new TLabel(Panel1);
lab=new TLabel(Panel1);

Panel1 est propriétaire des TEdit, par conséquent on peut se servir de Components.
Si Panel1 n'est propriétaire que de ces objets là, dans ce cas, on peut considérer que Components reflète l'ordre de création des objets.

Code :

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

1
2
3
4
5
 
((TEdit*)Panel1->Components[0]) <<-- ed
((TEdit*)Panel1->Components[1]) <<-- ad
((TLabel*)Panel1->Components[2]) <<-- lb
((TLabel*)Panel1->Components[3]) <<-- lab

Cette manière de rédiger peut sembler longue mais reste valable, en tout cas beaucoup plus pertinente (et surtout beaucoup plus rapide en terme d'exécution) que FindComponent.
A ce stade, on n'a pas besoin de donner de nom aux composants créés; du point de vue dynamique celà n'a pas de sens !

Par contre, il ne faut pas hésiter à objétiser (avec BCB on a tout ce qu'il faut sous la main pour l'envisager) !
On peut développer une classe dérivée de TPanel qui se chargera de créer les objets.
Et dans ce cas, rien n'empèche de définir, pour cette classe, un pointeur par objet !
Celà permet d'avoit une meilleure vision de ce que l'on fait, sans parler d'une meilleure accessibilité aux objets eux-mêmes !
Au fond, c'est l'art et la manière de préparer le développement : soit on développe à la volée (jusqu'à se trouver le dos au mur), soit on objétise (pour éloigner le mur) !

A plus !

**aboishak** · 10/02/2009, 14h26

j'ai deux probleme le premier c'est que je n'arive pas rendre k+1+1 a une valeur donne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int p,m,s=0;
 for( int k=0;k<Edit1->Text.ToInt();k++)
 {
 if(k+1+1>  Edit1->Text.ToInt())
 {
 k+1+1=1;
 
p = StrToIntDef( ((TEdit*) FindComponent("myad" + IntToStr(k+1+1)))->Text, -1 )
  - StrToIntDef( ((TEdit*) FindComponent("myad" + IntToStr(k+1-1)))->Text, -1 )  ;
 m=(StrToIntDef (((TEdit*) FindComponent("myed" +IntToStr(k+1)))->Text, -1))*p;
 Edit2->Text=IntToStr(s+m);
 }
 if (k+1-1=0)
 {
 (k+1-1)=Edit1->Text.ToInt();
 p = StrToIntDef( ((TEdit*) FindComponent("myad" + IntToStr(k+1+1)))->Text, -1 )
  - StrToIntDef( ((TEdit*) FindComponent("myad" + IntToStr(k+1-1)))->Text, -1 )  ;
 m=(StrToIntDef (((TEdit*) FindComponent("myed" +IntToStr(k+1)))->Text, -1))*p;
 Edit2->Text=IntToStr(s+m);
 }
 else
 {
 p = StrToIntDef( ((TEdit*) FindComponent("myad" + IntToStr(k+1+1)))->Text, -1 )
  - StrToIntDef( ((TEdit*) FindComponent("myad" + IntToStr(k+1-1)))->Text, -1 )  ;
 m=(StrToIntDef (((TEdit*) FindComponent("myed" +IntToStr(k+1)))->Text, -1))*p;
 Edit2->Text=IntToStr(s+m);
 }
 }

le deuxieme c'est comment j'arive a redonner une 2ieme valeur a edit1 pour réecré les composant

**henderson** · 10/02/2009, 15h07

Salut !

ed=new TEdit(Panel1);
...

Si Panel1 est propriétaire des objets alors ton code est normalement sans effet puisque ta méthode est celle de la classe TForm1 ce qui oblige à rechercher pour Form1 des objets dont il n'est pas propriétaire !
FindComponent travaille en interne à l'aide de Components (voir l'aide pour TComponent::Components et TComponent::FindComponent) et ne va plus loin !

Donc :

Code :

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

1
2
 
Panel1->FindComponent(...)

A plus !

**aboishak** · 10/02/2009, 18h29

oui j'ai éssaier ton caude

Code :

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

1
2
3
4
p = StrToIntDef(( Panel1->FindComponent("myad" + IntToStr(k+1+1)))->Text, -1 )
  - StrToIntDef(( Panel1->FindComponent("myad" + IntToStr(k+1-1)))->Text, -1 )  ;
 m=(StrToIntDef ((Panel1->FindComponent("myed" +IntToStr(k+1)))->Text, -1))*p;
 Edit2->Text=IntToStr(s+m);

mais le problemme c'est dans cette ligne

Code :

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

k+1+1=0;

il me dit Lvalue required

**Grosbenji** · 10/02/2009, 19h00

Bonsoir,

Envoyé par aboishak

oui j'ai éssaier ton caude
mais le problemme c'est dans cette ligne

Code :

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

k+1+1=0;

il me dit Lvalue required

'=' est un opérateur d'affectation.
L'opérateur pour tester une égalité est '=='

Cordialement,

Benjamin

**henderson** · 10/02/2009, 19h20

Salut !

Parce que FindComponent renvoie une adresse sur un objet de type TComponent (disons qu'il s'agit d'un pointeur vers TComponent).

Donc il faut transtyper sur le type attendu !

La manière dont tu code l'ensemble est assez périlleuse, parce que si FindComponent revoie NULL ...

Il vaudrait mieux (je pense) détailler ton code : étape par étape !

Code :

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

1
2
3
4
5
6
7
8
9
10
 
TEdit *Edit1 = (TEdit*) Panel1->FindComponent("blabla" + IntToStr(...));
if(Edit1 != NULL)
    {
    TEdit *Edit2 = (TEdit*) Panel1->...
    if(Edit2 != NULL)
        {
        ....
        }
    }

Si tu avais développé une classe dérivée de TPanel, tu aurais eu beaucoup moins de soucis !

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
class jPanel : public TPanel
{
public :
TEdit *E1;
TEdit *E2;
TLabel *L1;
TLabel *L2;
    __fastcall jPanel(TWinControl *AOwner);
    __fastcall ~jPanel();
    void __fastcall FaireQuelqueChose();
};

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
__fastcall jPanel::jPanel(TWinControl *AOwner)
    : TPanel(AOwner)
{
Parent = AOwner;
SetBounds(... ...);
//Construction des objets
E1 = new TEdit(this);
E1->Parent = this;
E1->SetBounds(..)
...
...
}
 
__fastcall jPanel::~jPanel()
{
}
 
void __fastcall jPanel::FaireQuelqueChose()
{
//par exemple affiche dans L1 la somme des valeurs affichées dans E1 et E2
L1->Caption = IntToStr( E1->Text.ToIntDef(0) + E2->Text.ToIntDef(0) );
}

Après c'est une affaire d'événementielle, au sens où "FaireQuelqueChose" certes... mais à quel moment précis ?

A plus !

**aboishak** · 10/02/2009, 22h22

si je veux travailler avec les listes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
int x=20;
 TList* List_ed = new TList;
 TList* List_ad = new TList;
 
 TEdit*ed ;
 TEdit*ad ;
 TLabel *lb ;
 TLabel *lab;
 int k;
 for( k=0;k<Edit1->Text.ToInt();k++)
 {
    ed=new TEdit(Panel1);
    ad=new TEdit(Panel1);
    lb=new TLabel(Panel1);
    lab=new TLabel(Panel1);
    ed->Parent=Panel1  ;
    ad->Parent=Panel1  ;
    lb->Parent=Panel1  ;
    lab->Parent=Panel1  ;
    ed->Name="myed" +IntToStr(k+1);
    ad->Name="myad" +IntToStr(k+1);
    lb->Name="mylb" +IntToStr(k+1);
    lab->Name="mylab" +IntToStr(k+1);
    ed->Width=100;
    ad->Width=100;
    ed->Text="";
    ad->Text="";
    lb->Caption="x =" + IntToStr(k+1);
     lab->Caption="y =" + IntToStr(k+1);
    ed->Left=x;
    ad->Left=x+120;
    lb->Left=x-15 ;
    lab->Left=x+120-15 ;
    ed->Top=x+30*k;
    lb->Top=x+30*k;
    ad->Top=x+30*k;
    lab->Top=x+30*k;
 
     //Sauvegarde des pointeurs dans les listes
    List_ed->Add(ed);
    List_ad->Add(ad);
 
 }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 int s,p;
for(int k=0;k<Edit1->Text.ToInt();k++)
{
   p= ((TEdit)List_ad->Items[k+1+1])->Text.ToInt() - ((TEdit)List_ad->Items[k+1-1])->Text.ToInt();
 if (k+1+1>Edit1->Text.ToInt())
 {
 k+1+1=1;
 p= ((TEdit)List_ad->Items[k+1+1])->Text.ToInt() - ((TEdit)List_ad->Items[k+1-1])->Text.ToInt();
 }
 }

l'ereur c'est que il undifine list
svp aide moi

**Poilou** · 11/02/2009, 14h48

Déclare List_ed et List_ad en global a ta form

**henderson** · 11/02/2009, 15h26

Salut !

p= ((TEdit)List_ad->Items[k+1+1])->Text.ToInt()

Code :

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

1
2
 
p= ((TEdit*)List_ad->Items[k+1+1])->Text.ToIntDef(0)

ToInt peut générer une exception lorsque l'expression littérale n'est pas conforme.
ToIntDef(0) ne génère pas d'exception et renverra la valeur 0 si l'expression littérale n'est pas conforme.

Par contre ... je ne comprend absolument pas pourquoi k+1+1 .... et encore moins k+1+1 = 1 ... Mais bon ... chaque chose en son temps !

A plus !

**Poilou** · 11/02/2009, 15h53

Idem k+1+1 = 1 je vois pas trop...

Comme k+1-1 revient à ecrire k pour ton index.

Tu risques d'avoir une erreur au niveau de la boucle for car k va jusqu'au maximum du tableau et tu essayes de lire l'indice k+1...il va pas aimer à l'execution.

Bon courage