Discussion :

[chrysbi]

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 :

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

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 ?

[DOLPat®]

Bonsoir

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.

[chrysbi]

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é...

[DOLPat®]

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 :

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

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.

[DOLPat®]

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.

[chrysbi]

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...