[Delphi 5] Objets indexés

Bonjour

Dans mon programme, je souhaite, par l'intermédiaire d'une boucle, envoyer les valeurs contenues dans un tableau de variables vers des objets Tedit en indexant chacun de ces objets par la valeur de la boucle.

Exemple:

Code:

---

edit1[i]:= val[i];

---

Cette ligne de code ne marche pas, comment puis-je faire?

Merci

salut

pour faire un truc de ce genre
il faut utilise le nom de ton composant

exemple

Code:

---

1 2 3 4 5

myfrm = class(Tform) Edit11 : Tedit; Edit12 : Tedit; ... end;

---

il te sufira ensuite de rechercher le composant corespondant
pour lui affecter la valeur

Code:

---

1 2 3 4 5 6 7

for i := 0 to pred(length(Var[i])) do begin lb := TEdit(FindComponent('Edit' + IntToStr(i+1))); if assigned(lb) Then lb.caption := Var[i]; End;

---

@+ Phil

ou un tableau de TEdit :

Code:

---

1 2 3 4 5 6

myfrm = class(Tform) tbEdit : array[1..x] of TEdit; ... for i := 1 to x do tbEdit[i].caption := val[i];   end;

---