Discussion :

[sly60]

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 :

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
 
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;

[Cl@udius]

Salut

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

@+ Claudius

[sly60]

Je ne comprend pas trop comment fonctionne FindComponent.

[Cl@udius]

Re,

Comme ceci:

Code :

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

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

[edit]
J'avais oublié: Bienvenue sur DVP

@+ Claudius

[sly60]

ok merci beaucoup.

[sly60]

Code :

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

 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.

[Cl@udius]

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

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

Un p'tit tag si c'est OK ?

[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 :

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

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

[Cl@udius]

Bonjour

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 :

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

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

@+ Claudius

[sly60]

Encore une fois merci beaucoup, j'aurai cherché longtemps sinon je pense.

[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 :

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

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

[sly60]

Pas de solution ?

[sovitec]

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

Code :

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

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