Comment utiliser un objet via une variable concaténée ?

Version imprimable

Bonjour à tous,

j'ai un souci, j'aimerai utiliser un objet mais en utilisant une variable et ajoutant une chaîne à cette variable comme ci dessous, ça ne fonctionne pas mais c'est pour l'idée. Auriez vous une solution ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TfrmQual.MiseJour;
var
   i : integer;
   ii, NomEdit : string;
begin
     i := 1;
     dtmBanc.qQual.Params[0].AsString := edDossier.Text;
     dtmBanc.qQual.Open;
     dtmBanc.qQual.First;
     while not dtmBanc.qQual.Eof do
     begin
          ii := IntToStr(i);
          NomEdit := 'edDebOp'+ii;
          NomEdit.Text := 'test';
          //'edDebOp'+ii.Text := dtmBanc.qQualNOM_OPERATEUR.AsString;
          i := i + 1;
          dtmBanc.qQual.Next;
     end;
end;

15/01/2008, 11h21
Cl@udius

Salut

Tu peux utiliser FindComponent dans ton cas.
Fais une recherche sur le forum, tu trouveras plusieurs exemples.

@+ Claudius
15/01/2008, 11h39
sly60

Je ne comprend pas trop comment fonctionne FindComponent.
15/01/2008, 11h44
Cl@udius
Re,

Comme ceci:
Code:

1 2 TEdit(FindComponent('edDebOp' + IntToStr(i)).Text := dtmBanc.qQualNOM_OPERATEUR.AsString;
[edit]
J'avais oublié: Bienvenue sur DVP :D

@+ Claudius
15/01/2008, 13h08
sly60

ok merci beaucoup.
15/01/2008, 13h50
sly60

Code:

TEdit(FindComponent('edDebOp' + IntToStr(i))).Text := dtmBanc.qQualNOM_OPERATEUR.AsString;

Petite correction il manquait une parenthèse juste avant . Text pour que cela fonctionne.

Encore merci.
15/01/2008, 13h53
Cl@udius

Citation:

Envoyé par sly60

Petite correction il manquait une parenthèse juste avant . Text pour que cela fonctionne.

Exact, elle m'avait échappé celle-là. :aie:

Un p'tit tag :resolu: si c'est OK ?
16/01/2008, 08h21
sly60

C'est possible aussi avec une récupération de donnée dans la base de donnée ? Je met la ligne de code mais ça ne fonctionne pas.

Code:

dtmBanc(FindComponent('qQualDB'+IntToStr(nbEd)+'DEF'+IntToStr(ii))).AsInteger
16/01/2008, 08h41
Cl@udius

Bonjour

Citation:

Envoyé par sly60

C'est possible aussi avec une récupération de donnée
dans la base de donnée ?

Si tu parles d'accéder à un champ d'une table, non ça ne marchera pas. Un champ de données n'hérite pas de TComponent.

Utilise FieldByName de TField:

Code:

dtmBanc.FieldByName('qQualDB'+IntToStr(nbEd)+'DEF'+IntToStr(ii))).AsInteger

@+ Claudius
16/01/2008, 08h47
sly60

Encore une fois merci beaucoup, j'aurai cherché longtemps sinon je pense. :lol:
16/01/2008, 08h50
sly60

Arf j'ai cette erreur.

[Erreur] frm_QualRap.pas(104): Identificateur non déclaré : 'FieldByName'

et celle la aussi

[Erreur] frm_QualRap.pas(104): 'END' attendu(e) mais ')' trouvé(e)

Je met la ligne complète ça vient peut etre de la.

Code:

TEdit(FindComponent('edDb'+IntToStr(nbEd)+'Def'+IntToStr(ii))).Text := dtmBanc.FieldByName('qQualDB'+IntToStr(nbEd)+'DEF'+IntToStr(ii))).AsInteger;
17/01/2008, 11h24
sly60

Pas de solution ?
17/01/2008, 11h46
sovitec

N'as tu pas tout simplement une parenthèse fermante en trop ?

Code:

TEdit(FindComponent('edDb'+IntToStr(nbEd)+'Def'+IntToStr(ii))).Text := dtmBanc.FieldByName('qQualDB'+IntToStr(nbEd)+'DEF'+IntToStr(ii)).AsInteger;