Une question toute bête ;-)Résolu

Question

Salut les gars, Je voudrais savoir pk le code suivant ne fonctionne pas : If label.width < 260 then Label.caption:='Yahooooooooooo' else if label.width > 260 then Label.caption:='Nonnnnnnnnnn'; Je voudrai savoir si les symboles > < (supérieur et inférieur) ne peuvent pas êtres utilisés. Dernière chose, si qqn possède la liste de symboles des différents opérateurs, genre "contient" "différent de" ... Merci à tous. ----------------------------------------- May Delphi and Php change the world ....

jlen100 · Accepted Answer

une petite chose tu ne peux pas &#233;crire: label.width

label est un mot r&#233;serv&#233; par contre si tu &#233;cris:

 If label1.width < 260 then

 Label1.caption:= 'Yahooooooooooo'

  else  if    label1.width > 260 then

 Label1.caption: ='Nonnnnnnnnnn';

ce code fonction parfaitement.

jlen100 · Answer

salut , tu ne peux pas utiliser >< simultanément ce qui provoque une erreur de compilation pour arriver au même résultat tu (variable> valeur1)and(variable

Becracker · Answer

Jlen100, pour label, dans mon code j'avais mis label37, mais dans mon message j'ai mis juste label, histoire de simplifier ,
donc pas de prob' de ce c&#244;t&#233; la. Mais, ca marche tjrs pas, ya aucun msg
d'erreur dans Delphi mais le bout de code ca ne s'&#233;x&#233;cute pas . 

Pour l'aide des op&#233;rateurs, je le trouve pas, tu peux me donner stp un lien ?



Merci bcp &#224; toi.

-----------------------------------------

May Delphi and Php change the world ....

jlen100 · Answer

salut 

j'ai test&#233; ce bout de code et je t'assure qu'il fonctionne.

v&#233;rifie que la propri&#233;t&#233; autosize de ton lable est bien &#224; false sinon il prend la taille de ce qui y est inscrit.

pour les operateurs tappe op&#233;rateurs dans l'index de l'aide delphi tu aussi trouver des informations interressantes &#224;:

Tutoriel de Delphi: Op&#233;rateurs - La bo&#238;te &#224; prog

[code.aspx?ID=25420 OP&#201;RATEURS BOOL&#201;ENS - TABLE DE V&#201;RIT&#201; - ON S'AMUSE AVEC LES ...]

neodelphi · Answer

> supérieur < inférieur >= supérieur ou égal <= inférieur ou égal <> différent = égal and et booléen or ou booléen (Il y a d'autres opérateurs booléen moins utilisés) Si tu n'a rien qui se passe je pense que c'est que label1.width vaut 260, et > < sont des strictement supérieur et strictement inférieur. Il faudrait en mettre un >=. neodelphi

jlen100 · Answer

-> neodelphi j'ai test&#233; ce bout de code il fonctionne parfaitement

le test que j'ai fait est tout simple:

j'ai plac&#233; un label sur une form et j'ai recopi&#233; le bout de code dans l'&#233;venement onclik

j'ai palc&#233; &#233;galement 2 boutons

procedure TForm1.Button1Click(Sender: TObject);

begin

label1.Width:=259;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

label1.Width:=261;

end;

tu peux faire le test il est tout simple et &#231;a marche

neodelphi · Answer

il fonctionne si la taille du label n'est pas 160, sinon il ne se passera rien... c'est peut-etre son cas...

neodelphi

jlen100 · Answer

effectivement si le label est &#233;gal &#224; 260 aucune des deux conditions ne sont remplies mais c'est bien ce qu'il demande !!!

neodelphi · Answer

Bah en fait g pas trop comprit ce qu'il cherche &#224; faire... lol 

neodelphi

Becracker · Answer

Ok merci les gars &#224; vous pour votre aide, ca marche mnt. Je voudrais
juste savoir s'il n'ya pas un op&#233;rateur qui signifie "contient" ?

Exemple : If label1.caption "contient" 'hahahaha" 

then ....



Merci &#224; vous deux .

-----------------------------------------

May Delphi and Php change the world ....

jlen100 · Answer

if pos ('hahah',Label1.caption)<>0 then 

begin

end;

Becracker · Answer

Ok merci bcp Jlen100.

-----------------------------------------

May Delphi and Php change the world ....

Une question toute bête ;-)

12 réponses

Votre réponse

Discussions similaires