Discussion :

[sirius381]

Bonjour à tous ,

Comment est-ce que je peux écrire une boucle pour affecter plusieurs Label ?

Exemple :

Nombreux 'Label' : label1 , Label2 ... label30 (ou des Edit ... c'est pareil)

Code :

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

1
2
For i := 1 to 30 do
  Label1.text := inttostr(i);   // Comment écrire la partie de gauche ?

pour éviter quelque chose comme ci-dessous :

Code :

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

1
2
3
4
5
6
7
For i := 1 to 30 do
case i of
 1:  Label1.text := inttostr(i); 
 2:  Label2.text := inttostr(i);
 ...
 30:  Label30.text := inttostr(i);
end;

la solution est surement simple ! .
Merci d'avance

[Archimède]

Code :

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

(FindComponent('Label'+Inttostr(i)) as TLabel).text:=inttostr(i);

voilà

a+

[Paul TOTH]

la question a été abordée plusieurs fois

1) créer un tableau de label une fois pour toute
var
Labels:array[1..30] of TLabel;
begin
Labels[1] := Label1;
...
end;

2) utiliser les RTTI pour retrouver le label X (le faire éventuellement en complément du point 1)

3) ne pas créer les labels dans l'IDE mais sur le onCreate de la fiche

4) ne pas utiliser des TLabel mais Canvas.TextOut dans le OnPaint de la fiche

etc...etc...

[sirius381]

Merci pour les réponses rapides .

Je me doutais que le sujet avait surement été abordé mais ce n'est pas si facile à retrouver dans le grand nombre de sujets ... je sais que c'est 'pénible' pour ceux qui visitent régulièrement le forum de retrouver les mêmes questions .

Christophe P.