Discussion :

[socooooool]

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]

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]

bonjour,

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

[thewho]

Bonjour,

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

[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

[socooooool]

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

Merci à tous ++

[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

[thewho]

Bonjour,

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 !!

[PadawanDuDelphi]

????

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]

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

[ero-sennin]

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