Discussion :

[jojo86]

Bonsoir,

Apparement, on ne peut utiliser elseif en delphi, et ça me bloque...

j'ai un formulaire avec trois champs un champ de saisi classic, un champ de mot de pass et un champ de confirmation de mot de pass.

Je voudrai dans un premier temps vérifier qu'aucun des champs n'est vide puis vérifier si les deux pass corresponde, j'ai énormement de mal pour mettre en place ce petit système.

voici mon code :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 
 
var
passvalid,applivide,pass1vide,pass2vide,nonvide : boolean;
nomappli : string;
 
begin
passvalid:=(pass1.text = pass2.text);
nomappli:=nomapplication.Text;
applivide:=(nomapplication.text = '');
pass1vide:=(pass1.text = '');
pass2vide:=(pass2.text = ''); 
 
 
if pass1vide Xor pass2vide Xor applivide then
begin
Showmessage('Tout les champs doivent être remplis')
end
else
  if passvalid then
   begin
   showmessage ('pass ok');
   Query1.Close;
   Query1.SQL.Text:='SELECT count(Application) FROM Application WHERE Application='+QuotedStr(nomapplication.text);
   Query1.open;
    if Query1.Fields[0].Value = 0 then
     begin
     showmessage('Valeur de MonChamp non existante');
     end
     else
     showmessage('Le nom '+ QuotedStr(nomapplication.text) + ' existe déjà enregistrement impossible');
     end
   else
howmessage ('Veuillez entrer deux fois le même mots de passe');
    end;
end.

Avec ce code, lorque le champ nomapplication est rempli, on peut valider alors que les champs pass sont vide... comment puis-je faire pour controler les champs?

Peut-être que j'ai fait trop compliqué, et qu'il y à plus simple mais je débute alors si quelqu'un à une autre idée... merci !!!

[Cl@udius]

Salut

Utilise des OR tout simplement.

Code :

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

1
2
 
  if pass1vide or pass2vide or applivide then

@+ Claudius

[jojo86]

Merci !!! je me suis compliqué la vie pour rien... je pensais que ça ne fonctionnerais pas avec des or...
Merci beaucoup...

[Cl@udius]

Si 1 des 3 champs est vide alors c'est le:

Code :

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

Showmessage('Tout les champs doivent être remplis')

qui sera exécuté.

@+

[sjrd]

Sinon le elseif "existe" aussi en Delphi, suffit de décoller le else et le if : else if.