If et else : le code passe à la suite alors que la condition n'est pas remplie

**socooooool** · 31/08/2006, 12h29

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm6.BitBtn3Click(Sender: TObject);
begin
 if (edit1.text='') or (edit2.text='') or (combobox1.text='') or (combobox2.text='') or (combobox3.text='') or (combobox4.text='') or (combobox5.text='') or (combobox6.text='')then
   showmessage('Vous devez remplir tous les champs')
 else
  Form5.table3.Delete;
  Form5.combobox2.Clear;
  with table1 do
   begin...

J'aimerais savoir si une erreur s'est faufilée dans mon code ci dessus : en effet, j'aimerais que si l'un des edit ou l'un des combobox n'est pas rempli, l'utilisateur se voit afficher le showmessage. C'est ce qui se passe actuellement mais ensuite ça continue gentillement à s'exécuter pour faire le Form5.table3.delete etc ... moi j'aimerais qu'il s'arrete au showmessage.

**jfdeterme** · 31/08/2006, 12h34

Essaye comme ca :

Code :

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

1
2
3
4
5
6
7
 
if ((((((((edit1.text='') or (edit2.text='')) or (combobox1.text='')) or (combobox2.text='')) or (combobox3.text='')) or (combobox4.text='')) or (combobox5.text='')) or (combobox6.text=''))then
showmessage('Vous devez remplir tous les champs')
else
Form5.table3.Delete;
Form5.combobox2.Clear;
with table1 do

**PadawanDuDelphi** · 31/08/2006, 12h34

bonjour,

tu peut faire un Exit; après ton ShowMessage, non?

**thewho** · 31/08/2006, 12h37

Bonjour,

Tu n'aurais pas oublié de mettre un bloc begin...end pour ton else ?

**socooooool** · 31/08/2006, 12h38

@ jfdeterm : non ça continue quand même dans le code

@ Padawandudelphi : Un exit n'est pas possible car les points virgules ne sont pas tolérés avant un "else" ...

Y'a un truc qui cloche

**socooooool** · 31/08/2006, 12h39

@ thewho : bien joué c'est tout à fait ça

Merci à tous ++

**PadawanDuDelphi** · 31/08/2006, 12h41

????

Tu peut bien écrire

Code :

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

1
2
3
4
5
if(   ) then
         begin
         Showmessage();
         Exit;
         end;

Non?

**Bloon** · 31/08/2006, 12h42

2 possibilités :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm6.BitBtn3Click(Sender: TObject);
begin
if (edit1.text='') or (edit2.text='') or (combobox1.text='') or (combobox2.text='') or (combobox3.text='') or (combobox4.text='') or (combobox5.text='') or (combobox6.text='')then
  raise Exception.Create('Vous devez remplir tous les champs')
else
Form5.table3.Delete;
Form5.combobox2.Clear;
with table1 do
begin...

ou :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm6.BitBtn3Click(Sender: TObject);
begin
if (edit1.text='') or (edit2.text='') or (combobox1.text='') or (combobox2.text='') or (combobox3.text='') or (combobox4.text='') or (combobox5.text='') or (combobox6.text='')then
begin
  showmessage('Vous devez remplir tous les champs');
  exit;
end
else
Form5.table3.Delete;
Form5.combobox2.Clear;
with table1 do
begin...

Bloon

**Cl@udius** · 31/08/2006, 12h42

Salut

Un petit conseil: si tu identais ton code tu te serais tout de suite rendu compte de ton erreur.

TheWho est de mon avis (cf sa signature).

@+ et bon dev

**ero-sennin** · 31/08/2006, 12h45

Salut,

Essaie ceci :

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
16
procedure TForm6.BitBtn3Click(Sender: TObject);
begin
  if (trim(edit1.text)='') or (trim(edit2.text)='') or (trim(combobox1.text)='') or   (trim(combobox2.text)='') or (trim(combobox3.text)='') or   (trim(combobox4.text)='') or (trim(combobox5.text)='') or  (trim(combobox6.text)='')then
  showmessage('Vous devez remplir tous les champs')
  else
  begin
   Form5.table3.Delete;
   Form5.combobox2.Clear;
   with table1 do
   begin
    ...
    ...
    ...
   end; // end de ta boucle with table1 do
 end; // end de ton else
end; // end de ta procédure

La fonction Trim permet de supprimer les espaces superflus en début et fin de chaîne. Ainsi, si l'utilisateur ne rentre que des espaces, le champs sera considéré comme vide

J'espère que ca fonctionnera (j'ai pas testé le code).
@+