Discussion :

[Nadirov]

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

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

[anapurna]

salut

Code :

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

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

[Andry]

Juste une précision :

Code :

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

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 :

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

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+

[Nadirov]

non dsl toujour ca marche pas

les 2 reponse marche pas

[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 :

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

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

[Lung]

non dsl toujour ca marche pas

les 2 reponse marche pas

Poste le code qui ne marche pas.

[SegmentationFault]

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')

[Nadirov]

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 :

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

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

[Nadirov]

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

[alx1603]

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