Discussion :

[jojo86]

Bonjour,

J'ai une application, lorsqu'on modifie le formulaire de l'application, Je passe une variable "ModifForm" à True (boolean).
De ce fait, lors de la fermeture de l'application, je voudrais controler cette variable, et SI ModifForm=True alors on Propose via un MsgBOX d'enregistrer les modifications ou non...

J'ai fait le code le soucis c'est que je ne sais pas ou le palcer, car j'ai le message "Debordement de pile".

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
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
If ModifForm=True then
  If MessageDLG('Voulez-vous enregistrer les Modifications???',mtConfirmation,[mbYes,mbNo],0)= mrYes then
  begin
    Enregistrement;
    CanClose:=True;
    Close;
    end
  else begin
  CanClose:=True;
  close;
    end
else begin
CanClose:=True;
close;
  end;
end;

Merci de votre aide !

[SergioMaster]

je pense déjà que cela peut beaucoup se simplifier

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
If ModifForm AND MessageDLG('Voulez-vous enregistrer les Modifications???',mtConfirmation,[mbYes,mbNo],0)= mrYes then
    Enregistrement;
CanClose:=True;
end;

de plus il ne faut pas , du moins a mon avis, envoyer un close dans un évenement closequery , c'est déjà en cours

PS . je ne sais même pas si le Canclose:=true est nécessaire puisque par défaut

[Andnotor]

Close va rappeler CloseQuery => boucle infinie jusqu'au débordement de pile.
CanClose est TRUE par défaut. Tu n'as besoin de le setter que dans le cas où tu veux aborter la sortie.

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  If ModifForm then
    case MessageDlg('Voulez-vous enregistrer les Modifications???', mtConfirmation, [mbYes,mbNo,mbCancel], 0) of
      mrYes    : Enregistrement;
      mrCancel : CanClose := FALSE;
    end;
end;

[Tardiff Jean-François]

Bonjour,

Dans votre code original les close pose problème (j'ai recopier et marquer votre code pour indiquer les emplacement des closes).

En faite cela revient a détruire le forme qui gère l'événement, cela est impossible.

il est a noter que mettre "canclose" à "true" est inutile si vous ne l'avez pas modifier. C'est la valeur par défaut. Vous pouvez donc encore simplifier le code de SergioMaster.

Ajout à postériori : Désolé, j'ai été trop long à entre mon message et je fais double emploi avec le message précédent.

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
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
If ModifForm=True then
  If MessageDLG('Voulez-vous enregistrer les Modifications???',mtConfirmation,[mbYes,mbNo],0)= mrYes then
  begin
    Enregistrement;
    CanClose:=True;
    Close; <---------------------------------------------- Close  dans un close ?
    end
  else begin
  CanClose:=True;
  close; <------------------------------------------------ Close  dans un close ?
    end
else begin
CanClose:=True;
close;
  end;
end;

[jojo86]

Close va rappeler CloseQuery => boucle infinie jusqu'au débordement de pile.
CanClose est TRUE par défaut. Tu n'as besoin de le setter que dans le cas où tu veux aborter la sortie.

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  If ModifForm then
    case MessageDlg('Voulez-vous enregistrer les Modifications???', mtConfirmation, [mbYes,mbNo,mbCancel], 0) of
      mrYes    : Enregistrement;
      mrCancel : CanClose := FALSE;
    end;
end;

Ok, Super sa marche, mais je ne comprend pas "Case", je n'ai pas l'habitude de l'utiliser et j'aimerais comprendre comment ça fonctionne... Merci de m'éxpliquer.

[Andnotor]

le Case permet de simplifier l'écriture de If imbriqués si le test renvoi des constantes connues à la compilation.

Ainsi dans ton code:

Code :

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

1
2
3
4
5
case Message(...) of
  mrYes    : ...
  mrNo     : ...
  mrCancel : ...
end;

est une autre façon d'écrire :

Code :

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

1
2
3
4
5
6
 
  i := Message(...);
 
  if i = mrYes then ...
  else if i = mrNo then ...
  else if i = mrCancel then ...

[ero-sennin]

Salut,

Le case se traduit par selon

Prenons un exemple simple, l'affichage du mois selon son "numéro" :

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
procedure TForm1.Button1Click(Sender: TObject);
var
  A, M, J: Word;
begin
  // On décode la date actuelle et on mets dans A, l'année, dans M, le mois, et dans J, le jour
  DecodeDate(Date, A, M, J);
  // Selon le mois
  case M of
  // il vaut 01 => On affiche Janvier
  01:ShowMessage('Janvier');
  // il vaut 02 => On affiche Février
  02:ShowMessage('Février');
  //...
  end;
end;

Voilà.Ca évite des if imbriqué donc ça rend le code plus lisible et plus performant.
Si tu veux mettre plus d'une ligne selon le cas, il faut entourer le traitement par un begin end :

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
procedure TForm1.Button1Click(Sender: TObject);
var
  A, M, J: Word;
begin
  // On décode la date actuelle et on mets dans A, l'année, dans M, le mois, et dans J, le jour
  DecodeDate(Date, A, M, J);
  // Selon le mois
  case M of
  // il vaut 01 => On affiche Janvier
  01:begin
          ShowMessage('Janvier');
          ShowMessage('C''est le mois de la galette');
     end;
  // il vaut 02 => On affiche Février
  02:ShowMessage('Février');
  //...
  end;
end;

En espérant avoir pu t'aider et t'éclairer.
A+

Edit :
Grilled

[jojo86]

Merci beaucoup pour toutes ces info, donc, (pour vérifier que j'ai bien compri) :

Code :

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

1
2
3
case M of
  // il vaut 01 => On affiche Janvier
  01:begin

Revien à faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
If M=01 then
begin
    showmessage ('Janvier')
    end
else if M=02 then
begin
    showmessage ('Fevrier')
    end;
end;

C'est sa??? Ou j'ai encore rien compris???

Vraiment, merci beaucoup à tous !

[Andnotor]

Correct

[jojo86]

Ok...

Et dans une situation comme celle ci est-ce qu'on peut utiliser case pour simplifier? :

Code :

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

1
2
3
4
5
6
7
If MaConditionBoolean then
begin
  MaVariable:=UneValeur;
  end
else begin
  MaVariable:=UneAutreValeur;
  end;

Je pense qu'on ne peut pas, mais peut être que je me trompe...

[ero-sennin]

En fait, le case attend un Integer ...
Ca ne fonctionne pas pour un type autre qu'un entier.

Cependant, rien n'empêche de faire un case avec des string en utilisant l'astuce dans la FAQ.

[jojo86]

Ok...

Mais le souci, c'est que dans mon cas, MaVariable serait de type :Real ;

Donc je pense que je vais laisser comme sa !!!

Merci encore à tous pour votre aide !

[Andnotor]

Un case sur un booléen fonctionne parfaitement .

Code :

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

1
2
3
4
case TestBool of
  TRUE  : ...;
  FALSE : ...;
end;

Mais l'écriture n'en est pas simplifiée par rapport à un if.

Le case peut être utilisé dans beaucoup de cas: entiers, caractères, ensembles, etc. pourvu qu'il s'agisse de types ordinaux

[Linkin]

Si c'est juste une affectation de variable, on peut utiliser IfThen (unité Math ou StrUtils, en fonction du type de la variable).

Code :

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

1
2
 
MaVariable := IfThen(MaConditionBoolean,UneValeur,UneAutreValeur);

et petite précision pour le case, on peut aussi écrire

Code :

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

1
2
3
4
5
6
7
8
9
10
 
case MaVariable of
  01:begin
end;
  02:begin
end
// Toutes les autres valeurs
else
begin
end;

[ero-sennin]

Merci Andnotor pour la précision sur les booléens, j'avais pas tester n'ayant pas Delphi sous la main
Comme le dit Linkin, on peut mettre un else dans le case of.
Ca a pour but de toujours renvoyer une valeur par défaut.

Si tu reprends l'exemple des dates que je t'ai montré, si peut faire :

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
procedure TForm1.Button1Click(Sender: TObject);
var
  A, M, J: Word;
begin
  // On décode la date actuelle et on mets dans A, l'année, dans M, le mois, et dans J, le jour
  DecodeDate(Date, A, M, J);
  // Selon le mois
  case M of
  // il vaut 01 => On affiche Janvier
  01:ShowMessage('Janvier');
  // il vaut 02 => On affiche Février
  02:ShowMessage('Février');
  //...
  12:ShowMessage('Décembre');
  else
    ShowMessage('Immpossible d''indiquer le mois! La valeur doit être entre 1 et 12');
  end;
end;

Voilà, je pense qu'on a fait le tour de la question

[jojo86]

Super !!!

Merci beaucoup à tous !