PB de Newbie à propo des conditions. aidezzzz moi !

Question

Bon c'est simple :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if label1.visible := True then
label1.Visible := False;
label2.Visible := False;

else

label1.Visible := True;
label2.Visible := True;
end;

code super simple mais ki marche pas ;-(
if label1.visible := True then  //le type de l'expression doit être BOOLEAN

else  // ';' non autorisé avant 'else'

Quelqu'un pourrai -t- il éclairer ma lanterne ? Me dire ce ki ne va pa dans mon code ?

Merci d'avance (surtout que je pense que c'est un pb tout con !)

swop

Armkreuz_Spiderz · Answer

Bonjour Swop, tu peut proceder comme ceci:


procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if Label1.Visible =  true then
  begin
   Label1.Visible := false;
   label2.Visible := false;
  end
  else
  begin
   Label1.Visible := true;
   label2.Visible := true;
  end
end;

pas de  :  avant le  de label1.visble true et tu avais oublier tes begin - end.

Armz

---
Are you CrAZy or jUSt InsaNE? 

http://www.braInsanity.com
---

cs_Swop · Answer

Merci de ta réponse aussi rapide (et à cette heure tardive / très matinales)

Je teste ça tout de suite.

swop

cs_Swop · Answer

ca marche à merveille ! merci d'aider les pauvres newbies qui essayent de passer de vb à delfi :-)

bye
swop

Armkreuz_Spiderz · Answer

Tu verra que Delphi est beaucoup mieux ;)
Bonne Chance!...

Armz

---
Are you CrAZy or jUSt InsaNE? 

http://www.braInsanity.com
---

cs_Kenavo · Answer

Si je puis me permettre ...

Au lieu d'écrire : if label1.visible =  True then ... tu peux écrire (et j'aime mieux)   if label1.visible then ... 
De même au lieu d'écrire : if label1.visible  = False then ... tu peux écrire if not label1.visible then ...

"Si ma tante en a alors ..." c'est quand même plus joli que : "Si ma tante en a est vrai alors ..."

Et personne n'écrit (j'espère !) : if (Value=0) = True then ...

Un peu d'élégance ne nuit pas ! M... !

Ken@vo
____________________
Code, Code, Codec !

cs_Swop · Answer

lol, tu as raison, mais j'ai pris l'abitude de tourner les choses comme ça qd je fesait du VB ...
swop

japee · Answer

On peut (on doit !) aller au fond de l'utilisation de la logique Booléenne :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Visible := not Label1.Visible;
  Label2.Visible := Label1.Visible;
end;


Bonne prog'   :-p

cs_Kenavo · Answer

Bien dit, Japee !

Ken@vo
____________________
Code, Code, Codec !

Nerolph · Answer

Nickel !!
Et en plus, on peut pas faire plus court.

PB de Newbie à propo des conditions. aidezzzz moi !

9 réponses

Votre réponse

Discussions similaires