Discussion :

[fabrice_place]

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 :

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

edit1[i]:= val[i];

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

Merci

[anapurna]

salut

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

exemple

Code :

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

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 :

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

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

[chtiot]

ou un tableau de TEdit :

Code :

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

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;