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.