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