J'ai un petit probleme pour les if et else

s.v.p j'ai toujour un probleme pour les if et else

par exemple j'au un edit et un boutton

je programme le boutton

Citation:

---

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.texte:=hi then
showmessage('c'est bien')
end;

---

ca marche pas toujour pour moi

merci de m'aider

salut

Code:

---

1 2 3 4 5

procedure TForm1.Button1Click(Sender: TObject); begin if (trim(edit1.texte) = hi) then showmessage('c'est bien') end;

---

c'est une egalite et pas une affectation donc pas de : devant le egale

le trim enleve les caractere blancs qui pourait etre source d'erreur

@+ phil

Juste une précision :

Code:

---

1 2 3 4 5

<div style="text-align: left;">procedure TForm1.Button1Click(Sender: TObject); begin if (trim(edit1.texte) = hi) then showmessage('c'est bien') end;</div>

---

ne sera valable que si hi est un variable de type string.
Sinon
il faut faire

Code:

---

1 2 3 4 5

<div style="text-align: left;">procedure TForm1.Button1Click(Sender: TObject); begin if (trim(edit1.texte) = 'hi') then showmessage('c'est bien') end;</div>

---

A+

non dsl toujour ca marche pas

les 2 reponse marche pas

Il faut regarder le message d'erreur, je pense qu'il y a une erreur au niveau de la propriété Text de l'Edit.
Essai :

Code:

---

1 2 3 4 5

procedure TForm1.Button1Click(Sender: TObject); begin if (trim(edit1.Text) = 'hi') then showmessage('c'est bien') end;

---

Citation:

---

Envoyé par Nadirov

non dsl toujour ca marche pas

les 2 reponse marche pas

---

Poste le code qui ne marche pas.

vous ne voyez pas un truc qui saute aux yeux???!!

showmessage('c'est bien')

je doute fort que ta compilation pourra bien se terminer. met plutot :

showmessage('c''est bien')

Citation:

---

Envoyé par alx1603

Il faut regarder le message d'erreur, je pense qu'il y a une erreur au niveau de la propriété Text de l'Edit.
Essai :

Code:

---

1 2 3 4 5

procedure TForm1.Button1Click(Sender: TObject); begin if (trim(edit1.Text) = 'hi') then showmessage('c'est bien') end;

---

---

non j'ai remarquer ca , j'ai modifier mais ca marche pas

enfin voila ca a bien marcher

oui c'ets juste ce qu'il a dit "SegmentationFault"

et merci pour vous tous

sans vous je pouvais pas arriver

OK ok, dans ce genre de cas, il est bon de donner la mesage d'erreur.
Bonne journée