Discussion :

[sdeuss]

Bonjour à tous,
Je suis en train de découvrir delphi et j'ai un petit probleme avec la boucle if
Dite moi pourquoi cela ne fonctionne pas :

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
begin
  // ce cas fonctionne
  if strtoint(sai_depart.Text) >= 18 then
    result_bool := true
  else
    result_bool := false;
 
  // ce cas ne fonctionne pas... Pourquoi ???
  if result_bool = true then
    showmessage('Tu peux entrer')
    sai_resultat.Text := 'Accepter'
  else
    showmessage('Tu ne peux pas entrer');
    sai_resultat.Text := 'Refuser';
end;

Je vous remercie d'avance de votre reponse...

[exoseven]

tu oublies le begin et le end

Code :

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

1
2
3
4
5
6
7
8
9
if result_bool = true then
begin
 showmessage('Tu peux entrer')
 sai_resultat.Text := 'Accepter';
end
else begin
showmessage('Tu ne peux pas entrer');
sai_resultat.Text := 'Refuser';
end;

[sdeuss]

Je te remercie de ta réponse.
Merci encore pour ton aide...

[ShaiLeTroll]

Pour information

Code :

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

if result_bool = true then

peut être simplfié en

Code :

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

if result_bool then

ainsi que

Code :

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

1
2
3
4
if strtoint(sai_depart.Text) >= 18 then
result_bool := true
else
result_bool := false;

simplfié en

Code :

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

result_bool := (strtoint(sai_depart.Text) >= 18);

c'est tout l'avantage du type boolean en delphi !

[sdeuss]

Je te remercie aussi pour ton optimisation du code.