Procédure suivant variable

Bonjour,

J'ai un problème que j'ai simplifié dans cet exemple :
j'ai une variable integer (V_compteur) qui peut avoir comme valeur 1,2 ou 3
j'ai trois labels : Label1, Label2, Label3
J'ai un bouton Button1
Lorsque je presse ce bouton, je souhaite que l'un des labels affiche en caption "coucou". Le choix du label qui affiche "coucou" doit être déterminé par la valeur de V_compteur

j'aurais donc la procédure

Code:

---

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:='coucou'; ou Label2.Caption:='coucou'; ou Label3.Caption:='coucou'; end;

---

C'est comme si je voulais que la procédure contienne la chaîne :

Code:

---

'Label'+IntToStr(V_compteur)+'.Caption:=''coucou'''

---

Je cale...

Merci d'avance

Citation:

---

Envoyé par phobik

Je cale...

Merci d'avance

---

Rhôôô :P

Code:

---

1 2 3 4 5

case V_compteur of 0: label1.Caption := 'coucou'; 1: label2.Caption := 'coucou'; 2: label3.Caption := 'coucou'; end;

---

ou mieux

Code:

---

1 2 3 4 5

case V_compteur of 0: begin label1.Caption := 'coucou'; label2.Caption := ''; label3.Caption := ''; end; 1: begin label1.Caption := ''; label2.Caption := 'coucou'; label3.Caption := ''; end; 2: begin label1.Caption := ''; label2.Caption := ''; label3.Caption := 'coucou'; end; end;

---

Merci :)

je cherchais sans doute à me compliquer la vie

Bonne journée

voir aussi

Code:

---

FindComponent('Label' + IntToStr(V_compter + 1)) as TLabel

---

ou encore dans le OnCreate de la fiche

Code:

---

1 2 3 4 5

// avec Labels: array[0..2] of TLabel; Labels[0] := Label1; Labels[1] := Label2; Labels[2] := Label3;

---