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;