Discussion :

[selector]

bonjour

j'ai une question bizarre à propos de l'utilisation de ShowModal, mais c'est tellement énorme que je vous la pose !

on a un developpeur delphi chez nous qui prétend que faire ce qui suit "est une grave erreur de programation"

Code :

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

1
2
3
4
5
6
7
8
9
10
var
   ModalWindow : TMyModalForm;
   ValeurRetour : String;
begin
   ModalWindow := TMyModalForm.Create();
   if ModalWindow.showModal = mrOK then 
      ValeurRetour := ModalWindow.MyTextEdit.Text;
   ModalWindow.Release;
   ShowMessage(ValeurRetour);
end;

(avec dans TMyModalForm, un TButton avec ModalResult := mrOK)

voici ses arguments :

J’ai remarqué que dans toutes les applications dont j’ai pu consulter les sources, la récupération des informations provenant d’une fenêtre ‘F’ affichée en mode « showmodal » se fait après la sortie de cette fenêtre ‘F’ . Or cette fermeture est provoquée par le changement de la valeur ModalResult de cette fenêtre ‘F’. Le changement de la valeur ModalResult provoque la mise à disposition pour le système d’exploitation de l’espace mémoire utilisée par cette fenêtre ‘F’. Toutes actions sur cette fenêtre et notamment la cachée en plaçant dans le OnClose Action à caHide ne sert à rien, car la libération de la mémoire, par erreur de programmation de Borland, a déjà eu lieu.

Donc les valeurs récupérées peuvent être erronées et provoquées des soucis dont l’origine sera difficile à établir.

La méthode qui est utilisée est une grave erreur de programmation, malheureusement pratiquée par de nombreux programmeurs Delphi qui semblent ne pas avoir lus l’aide en ligne de Delphi ni les manuels Borland.

je suis tres perplexe, puisque l'on n'a jamais procédé autrement que ce qui est décrit, et evidemment l'on n'a jamais eu de probleme.

=> Vous en pensez quoi ?

anthony

[ShaiLeTroll]

. Le changement de la valeur ModalResult provoque la mise à disposition pour le système d’exploitation de l’espace mémoire utilisée par cette fenêtre ‘F’. ... car la libération de la mémoire, par erreur de programmation de Borland, a déjà eu lieu ...

La méthode qui est utilisée est une grave erreur de programmation, malheureusement pratiquée par de nombreux programmeurs Delphi qui semblent ne pas avoir lus l’aide en ligne de Delphi ni les manuels Borland

Ton collègue a écrit ça ? vraiment ?
Lorsque l'on lit ce texte, on détecte une incohérence entre la 1ere et 2nde citation, Borland aurait écrit qu'il ne fallait pas faire un truc parce qu'ils auraient laissé trainer un bug ? c'est très cohérent ça !
C'est bien confus !

Personnellement, j'écris le code comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
   ValeurRetour : String;
begin
   with TMyModalForm.Create(nil) do
   try
     if ShowModal() = mrOK then 
      ValeurRetour := MyTextEdit.Text;
   finally
     Free; // Le Release n'est pas utile dans ce cas !
   end;
 
   ShowMessage(ValeurRetour);
end;

lorsque je suis courageux, j'ai des propriétés avec accesseurs à la place d'un accès direct à MyTextEdit.Text
Mais quoi qu'il arrive, j'ai toujours besoin de l'instance !

Ensuite, tu pourras lui dire qu'il aurait dû se taire (voir signature), car il y a oublié un élément important qui est le FormState fsModal qui gère les fenêtres utilisées en ShowModal différemment d'une fenêtre SDI

Mais que cela soit Close ou CloseModal (si OnCloseQuery renvoie CanClose à True, truc par défaut)
l'action par défaut du OnClose en SDI c'est caHide et en MDI c'est caMinimize !
En aucun cas caFree !

Petite remarque pour la MainForm, les trois valeurs Hide, Minimize ou Free provoqueront un Release mais en général, la MainForm ne peut pas être SDI et Modale en même temps !

Tu pourras lui dire d'étudier le Code de Forms.pas est nettement plus instructif !
Dire que le code de Borland est buggé, cela arrive, mais pas sur un truc aussi vieux et massivement utilisé !
Sinon le hazard ferait que personne depuis tout ce temps n'a jamais eu de mémoire "aléatoire" ou même utilisé une seule une méthode virtuelle d'un objet alloué par une fenêtre modale ...

[selector]

Sinon le hazard ferait que personne depuis tout ce temps n'a jamais eu de mémoire "aléatoire" ou même utilisé une seule une méthode virtuelle d'un objet alloué par une fenêtre modale

comme tu dis !

merci pour ta réponse
je pense qu'il est inutile de poursuivre

anthony

[guillemouze]

En tout cas merci pour ce petit moment de rigolade

Le pire c'est qu'il y a des arguments a ses affirmations. Certes, ces arguments devraient a leur tour etre argumentés, mais la, ca va etre plus difficile de justifier "Le changement de la valeur ModalResult provoque la mise à disposition pour le système d’exploitation de l’espace mémoire utilisée".

J'aurais bien aimé avoir un lien ou une reference a propos de "(...) qui semblent ne pas avoir lus l’aide en ligne de Delphi ni les manuels Borland"
Tu pourra demander à ton collegue de me retourver la page ou ils disent ca ?

[selector]

hello
allez, soyons miséricordieux et oublions ça )
a+
anthony