identification de mon edit

Version imprimable

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:

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:

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

10/02/2009, 09h25
dz_robotix

salu aboishak,

Code:

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

ton 'myad' c'est quoi au juste?

Peut etre avec FindComponent :

Code:

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

Bonjour,

il y a la possibilité de passer par une TList

Code:

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:

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.

10/02/2009, 11h46
henderson
Salut !

Citation:

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:

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 !

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

Code:

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

10/02/2009, 15h07
henderson
Salut !

Citation:

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:

1 2 Panel1->FindComponent(...)
A plus !

oui j'ai éssaier ton caude

Code:

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:

k+1+1=0;

il me dit Lvalue required

10/02/2009, 19h00
Grosbenji

Bonsoir,

Citation:

Envoyé par aboishak

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

Code:

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

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:

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:

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:

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 !

si je veux travailler avec les listes

Code:

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

11/02/2009, 14h48
Poilou

Déclare List_ed et List_ad en global a ta form
11/02/2009, 15h26
henderson
Salut !

Citation:

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

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 !
11/02/2009, 15h53
Poilou

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
11/02/2009, 16h28
henderson
Salut !

Sans doute qu'il calcule sur un actuel et sur son précédent donc :
Code:

1 2 for(int k = 1; ...)
On sait que pour la première itération, on aura comme valeur d'index k = 1 et k-1 = 0, sans risque d'être hors de la liste !

A plus !