Test avec un TLabel

Bonsoir,

je suis en train de réaliser un programme avec une interface graphique, et lors d'un clic sur un bouton, j'aimerais réaliser un test sur un TLabel :

Code:

---

1 2 3 4

If Form1.Label1.Caption='azerty' then Begin bout de programme end;

---

Pourtant, bien que la condition du test soit vérifiée, le bout de programme n'est pas réalisé...

J'ai essayé d'enlever le test. Le bout de programme se fait très bien, et j'ai également essayé de voir s'il y avait un problème avec le label en faisant:
Form1.Label1.Caption:='blabla';

Le texte se transforme bien en "blabla"...

Donc, ma question est la suivante: sauriez-vous d'où vient l'erreur, dans mon test, ou est-ce que, peut-être, le TLabel ne peut pas être utilisé dans des tests ? :?

Bonsoir

Citation:

---

Envoyé par chrysbi

Pourtant, bien que la condition du test soit vérifiée, le bout de programme n'est pas réalisée...

---

Ben apparemment, la condition de test n'est pas vérifiée, malgré ce que tu crois...

Pour pouvoir en dire plus, il faudrait voir ton code en détail.

Pat.

Pourtant, je suis pratiquement sûre que le test est bien vérifié, puisqu'avant de cliquer sur le bouton, le texte du TLabel à tester est écrit par un clic sur un autre bouton. J'ai copié-collé le texte même depuis la procédure de l'autre bouton... Je ne vois donc pas comment ça pourrait être possible en fait... :?



EDIT: je viens de tester avec un point d'arrêt et en exécutant pas à pas...
En effet, le programme ne rentre pas dans la boucle, après le test, mais je ne comprends pas pourquoi, et surtout, comment faire pour que le test soit "validé" puisque je vois pas comment faire plus identique qu'un copié-collé...

Re bonsoir

Je persiste et signe: le resultat de ton test n'est pas true...

Je viens de faire un test avec Lazarus 0.9.31. J'ai mis sur une fiche un TLabel et 2 boutons avec le code suivant et il fonctionne.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); begin if Label1.Caption='azerty' then Caption := 'OK' else Caption := 'Pas OK'; end;   procedure TForm1.Button2Click(Sender: TObject); begin if Label1.Caption='azerty' then Label1.Caption:='qwerty' else Label1.Caption:='azerty'; end;

---

D'autre part, je ne vois pas trop l'intérêt de tester le texte d'un TLabel, mais bon...

Pat.

Citation:

---

Envoyé par chrysbi

EDIT: je viens de tester avec un point d'arrêt et en exécutant pas à pas...
En effet, le programme ne rentre pas dans la boucle, après le test, mais je ne comprends pas pourquoi, et surtout, comment faire pour que le test soit "validé" puisque je vois pas comment faire plus identique qu'un copié-collé...

---

Comme je je disais dans mon premier message: Il faudrait voir le code pour aller plus loin. Donc si tu veux que l'on avance, poste le bout de code qui pose problème !

Pat.

J'ai essayé de créer un nouveau Label ou seule la partie de phrase qui change est écrite. Ca marche...
J'ignore s'il y avait un problème d'espace. Peut-être que ça venait de là...

Merci pour ton aide Pat. Pour la partie de code, y'a pas vraiment plus que ce que j'ai dit: le test et la boucle...