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

Version imprimable

Code:

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.

Essaye comme ca :

Code:

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

31/08/2006, 12h34
PadawanDuDelphi

bonjour,

tu peut faire un Exit; après ton ShowMessage, non?
31/08/2006, 12h37
thewho

Bonjour,

Tu n'aurais pas oublié de mettre un bloc begin...end pour ton else ?
31/08/2006, 12h38
socooooool

@ 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
31/08/2006, 12h39
socooooool

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

Merci à tous ++

????

Tu peut bien écrire

Code:

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

Non?

2 possibilités :

Code:

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:

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

31/08/2006, 12h42
Cl@udius

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

Salut,

Essaie ceci :

Code:

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).
@+ ;)

31/08/2006, 14h57
thewho

Bonjour,

Citation:

Envoyé par Claudius40

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

Farpaitement !!