Libération de formes ouvertes en cascade

**maxjp83** · 24/04/2015, 21h36

Bonsoir a tous,
J'ai un problème de libération de form.
Ex :
Form principale lance une forme devis qui lance une form tiers, qui peut lancer une autre form devis.
Lorsque je libère la deuxième form devis, pas de problèmes, après nous sortons de la fiche tiers et la liberons avec un formdevis.release, pas de problèmes et nous sommes revenus a la première form devis.
Lorsque nous fermons cette fiche j'ai un message d'erreur.
La première instruction release de la form devis fait planter la deuxième lors de sa liberation.
Comment faire?
Merci pour votre aide.
Max

**Ph. B.** · 25/04/2015, 14h07

Bonjour,

Envoyé par maxjp83

Lorsque nous fermons cette fiche j'ai un message d'erreur.

Quel message d'erreur ? Violation d'accès ou autre ?

Envoyé par maxjp83

Form principale lance une forme devis qui lance une form tiers, qui peut lancer une autre form devis.

Comment est-elle créée ? Application.CreateForm(TMaForm, MaForm); ou MaForm := TMaForm.Create(Self); ou MaForm := TMaForm.Create(nil); ?
Comment est-elle affichée ? ShowModal ?

Envoyé par maxjp83

Lorsque je libère la deuxième form devis, pas de problèmes, après nous sortons de la fiche tiers et la liberons avec un formdevis.release, pas de problèmes et nous sommes revenus a la première form devis.
Lorsque nous fermons cette fiche j'ai un message d'erreur.
La première instruction release de la form devis fait planter la deuxième lors de sa liberation.

Le code serait le bienvenu. AMHA, il reste un élément référencé pour lequel plus d'une libération mémoire est tentée...

**Paul TOTH** · 25/04/2015, 14h59

je mise sur l'usage de la variable globale formdevis: Tformdevis

**maxjp83** · 25/04/2015, 15h18

Envoyé par Ph. B.

Bonjour,

Quel message d'erreur ? Violation d'accès ou autre ?

Comment est-elle créée ? Application.CreateForm(TMaForm, MaForm); ou MaForm := TMaForm.Create(Self); ou MaForm := TMaForm.Create(nil); ?
Comment est-elle affichée ? ShowModal ?

Le code serait le bienvenu. AMHA, il reste un élément référencé pour lequel plus d'une libération mémoire est tentée...

Bonjour Philippe,

Je crée toutes mes formes avec Application.CreateForm(TMaForm, MaForm)
Toutes les fiches sont indépendantes, mais il y a dans mon exemple deux memes formes qui sont appellées avec des param différents (par exemple pour visualiser un ancien devis).
Lorsque je libère la deuxième forme crée ex Application.CreateForm(TFormDevis, MaFormDevis) puis showmodal et MaFormDevis.release, cela impact la première formdevis.

Le message est Violation d'accès a l'adresse 6C3B6300, lecture de l'adresse 6C3B6300.
Pourtant il y a deux createForm différents a deux moment différents. Avant la libération de la première formDevis crée, elle fonctionne normalement, c'est seulement au moment de la fermeture.
On dirait qu'il associe les noms des deux formes à la même adresse.

Merci pour ton aide!!

Max

**tourlourou** · 25/04/2015, 15h40

Y a-t-il bien Application.CreateForm(TFormDevis, MaFormDevis_1) et Application.CreateForm(TFormDevis, MaFormDevis_2), ou Paul Toth aurait-il une boule de cristal détectant les CANPF ?

**maxjp83** · 25/04/2015, 15h46

Envoyé par Paul TOTH

je mise sur l'usage de la variable globale formdevis: Tformdevis

Merci pour ta réponse.
Les formes sont appelées a des moments différents et traitent des données différentes. Ce problème est commun a toutes mes fiches chargées plusieurs fois, et j'ai au moins une centaine de formes...
Max

**maxjp83** · 25/04/2015, 15h52

Envoyé par tourlourou

Y a-t-il bien Application.CreateForm(TFormDevis, MaFormDevis_1) et Application.CreateForm(TFormDevis, MaFormDevis_2), ou Paul Toth aurait-il une boule de cristal détectant les CANPF ?

Sur le principe c'est ce qu'il faudrait, mais dans Application.CreateForm(TFormDevis, MaFormDevis_1) MaFormDevis_1, n'existe pas et Delphi ne l'accepte pas, il faudrait qq chose comme dans une requete select nom as nom1.

Comment faire?

Merci

Max

**tourlourou** · 25/04/2015, 16h12

Si tu utilises le même nom de variable pour référencer successivement des instances différentes, d'une part on perd toutes les premières références pour ne conserver que la dernière, d'autre part, en libérant une instance déjà libérée, on a une violation d'accès.

La solution est donc d'avoir plusieurs noms de variables du même type (ici, un par fiche) ou une liste de fiches (TList, TObjectList), voire une pile (TStack) si on doit les libérer en sens inverse de leur création (LIFO), ou un code sans référence explicitement conservée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
with TMaFiche.Create(nil) do 
begin
  try
      // initialisations
    MaPropriete:=2;
    Init(MonParametre);
      // affichage
    ShowModal;  
  finally
      // libération
    Free;
end;

**maxjp83** · 25/04/2015, 19h51

Envoyé par tourlourou

Si tu utilises le même nom de variable pour référencer successivement des instances différentes, d'une part on perd toutes les premières références pour ne conserver que la dernière, d'autre part, en libérant une instance déjà libérée, on a une violation d'accès.

La solution est donc d'avoir plusieurs noms de variables du même type (ici, un par fiche) ou une liste de fiches (TList, TObjectList), voire une pile (TStack) si on doit les libérer en sens inverse de leur création (LIFO), ou un code sans référence explicitement conservée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
with TMaFiche.Create(nil) do 
begin
  try
      // initialisations
    MaPropriete:=2;
    Init(MonParametre);
      // affichage
    ShowModal;  
  finally
      // libération
    Free;
end;

Merci pour ta réponse, j'essaierais, et je te tiens au courant!
Bon we

Max

Merci encore, tout fonctionne parfaitement.

Max

**Ph. B.** · 26/04/2015, 13h22

Bonjour,

Envoyé par maxjp83

Je crée toutes mes formes avec Application.CreateForm(TMaForm, MaForm)

Mais en gardant la même variable MaForm...

Lors du 1° appel, la variable MaForm est initialisée (disons qu'elle reçoit la valeur d'adresse 1000 correspondant à la 1° fiche)
Lors du deuxième appel, la variable MaForm est réinitialisée (disons qu'elle reçoit la valeur d'adresse 2000 correspondant à la 2° fiche)
On ferme la 2° fiche et on libère les ressources (MaForm.release) pour MaForm = 2000. Tout va bien.
On veut fermer la 1° fiche et libérer les ressources (MaForm.release), mais MaForm (=2000) fait référence à la 2° fiche. Cela déclenche alors une violation d'accès (les ressources sont déjà libérées et n'appartiennent plus à l'application)

Comme ce sont des fiches modales, 3 solutions :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TMaParentForm.AppelMaForm;
var
  LocalMaForm: TMaForm;
begin
  Application.CreateForm(TMaForm, LocalMaForm);
  try
    LocalMaForm.ShowModal;
  finally
    LocalMaForm.Release;
  end;
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TMaParentForm.AppelMaForm;
var
  LocalMaForm: TMaForm;
begin
  LocalMaForm := TMaForm.Create(Self);  
  // ou car on va gérer la libération directement, on indique pas un propriétaire (Owner)
  // LocalMaForm := TMaForm.Create(nil);
  try
    LocalMaForm.ShowModal;
  finally
    LocalMaForm.Release;
  end;
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TMaParentForm.AppelMaForm;
begin
  // Pas besoin de variable ni de propriétaire (Owner)
  // On gère directement la libération
  with TMaForm.Create(nil) do
  try
    ShowModal;
  finally
    Release;
  end;
end;

La dernière a ma préférence bien entendu...

**Paul TOTH** · 26/04/2015, 16h16

à noter que bien souvent quand on est en instances multiples, l'usage d'une variable globale devient lourd.

donc, soit l'instance n'a pas besoin de la variable, notamment si la fiche vie sa vie et qu'on n'a jamais besoin d'y faire référence, dès lors on se fiche de la variable.

soit on place dans une liste (TList, TObjectList, array of ... au choix) toutes les instances créées.

on peux par exemple avoir une TList dans la fiche principale (MainForm qui elle est unique à l'application) et le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm2.FormCreate(Sender: TObject);
begin
  MainForm.List.Add(Self);
end;
 
procedure TForm2.FormDestroy(Sender: TObject);
begin
  MainForm.List.Remove(Self);
end;

**maxjp83** · 27/04/2015, 12h01

Envoyé par Paul TOTH

à noter que bien souvent quand on est en instances multiples, l'usage d'une variable globale devient lourd.

donc, soit l'instance n'a pas besoin de la variable, notamment si la fiche vie sa vie et qu'on n'a jamais besoin d'y faire référence, dès lors on se fiche de la variable.

soit on place dans une liste (TList, TObjectList, array of ... au choix) toutes les instances créées.

on peux par exemple avoir une TList dans la fiche principale (MainForm qui elle est unique à l'application) et le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm2.FormCreate(Sender: TObject);
begin
  MainForm.List.Add(Self);
end;
 
procedure TForm2.FormDestroy(Sender: TObject);
begin
  MainForm.List.Remove(Self);
end;

Bonjour Paul,

Merci beaucoup pour ton aide, tout fonctionne parfaitement!!!

Max

**maxjp83** · 27/04/2015, 12h02

Merci pour votre aide à tous!!!!

Max

Libération de formes ouvertes en cascade

Langage Delphi

Discussions similaires

Partager

Partager