Discussion :

[aboishak]

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]

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]

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]

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]

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]

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