Discussion :

[oiapoque]

Bonjour,

A la fermeture d'une fenetre, je tente de détruire tout ses composant en faisant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
i := ComponentCount-1;
  While i > 0 do begin
        if Components[i].Owner.Name = Self.Name then Begin
          try
           Components[i].Destroy;
           i := ComponentCount-1;
          except
          end;
 
        end Else
          Dec(i);
  End;

L'erreur "EAccessViolation" apparait, Mes composants sont créés dynamiquement, et il semble que cette erreur vienne d'un acces à la memoire qui n'existe pas...
mon application travail en local et en reseau, il se trouve que cett erreur ne se produit qu'a la fermeture d'un dossier reseau (mais je ne vois pas pourquoi).

Petit test réalisé, les EAccessViolation semble apparaitre pour la destruction de composant de type "PageCOntrol"

Code :

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

1
2
 
Components[i].name;

m'a retourné des noms de composant de type: PC_4, PC_3 PC_2...
mais je n'arrive pas à les identifier d'avantage. Y-a-t-il une methode pour trouver d'avantages d'infos sur ses composants?

quels tests puis-je faire pour resoudre ces problemes d'acces memoire ou trouver quels composants son innaccessibles???

merci pour toute idee pour avancer

a bientot

eric

[evarisnea]

d'après ton code, tu détruis tous les composant possédés par ta fenêtre, et là je me demande bien pourquoi ?
car tu dois savoir que ta fenêtre libérera elle même tous les composants qu'elle possède à sa destruction. si tu n'essaie pas de libérer tes composants a la fermeture y a-til toujours une erreur ?

[oiapoque]

si tu n'essaie pas de libérer tes composants a la fermeture y a-til toujours une erreur ?

L'erreur apparait à la libération de la Fiche (EcDossier) contenant les composants:

Code :

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

1
2
3
4
5
6
7
8
9
 
     try
       EcDossier.Free;
       EcDossier := nil;
     Except
       EcDossier.Destroy;
       EcDossier := nil;
//       ShowMessage('Attention destruction Dossier Level 2');
     end;

aucun code n'est de moi, je tente seulement de debugger un petit peu un programme avec mes faibles connaissances Delphi, mais j'en apprend tous les jours sur ce forum !! merci

Dailleur, Destroy ne doit jammais être appellé directement. C'est la méthode Free qui s'en charge.

oui j'ai bien vu çà, mais ds la boucle de destruction de composants, le resultat est le même

[Philippe Gormand]

Donne le code où est déclaré ecDossier, et le code où il est créé (méthode Creat).

A+

[Bejaia-In]

Est-ce que à un moment donné, dans le code, il-y-a création de composants ?
Si oui ceux-là seulement doivent être libérés, sinon tu ne dois détruire rien du tout.

Code :

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

1
2
 EcDossier.Free;
 EcDossier := nil;

Quelle est cette bizarerie ? libérer un composant pour lui donner une valeur nil ?

[oiapoque]

Est-ce que à un moment donné, dans le code, il-y-a création de composants ?
Si oui ceux-là seulement doivent être libérés, sinon tu ne dois détruire rien du tout.

Quelle est cette bizarerie ? libérer un composant pour lui donner une valeur nil ?

oui c'est bizarre hein, d'ailleurs l'auteur du programme a répété cette bizarrerie partout

enfin bref, j'ai modifié la boucle de destruction des composants de ma Fiche qui sont créés dedans, ils sont tous detruits (libérés? je suis ne pas au point dans la rhétorique) sans erreurs
et dans mon Main, à la place de

Code :

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

1
2
3
 
EcDossier.Free;
EcDossier := nil;

je fais seulement

Code :

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

1
2
 
EcDossier := nil;

et visiblement je n'ai plus d'erreur
dans l'immédiat, çà me suffira, mais si quelqu'un a un peu de théorie sur la destruction d'objets/free/destroy et comment faire un code propre ds ces situations, je suis preneur car là je ne comprend pas tout


pour Philippe Gormant je ne peux pas laisse le code du FormCreate car il est bcp trop long et sans commentaires, mais il créée essentiellement des boutons et des onglets en nombre TRES consequent....


merci a tous

[Philippe Gormand]

Si les composants sont déclarés dans la partie Class de la fiche, il ne faut pas appeler leurs méthodes Destroy ni la méthode free. Dailleur, Destroy ne doit jammais être appellé directement. C'est la méthode Free qui s'en charge. Mais dans le cas où les composant sont déclaé de cette façon :

Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
type
    TForm1 = class(TForm)
 
 
     public
        Image1 : TImage;
        Edit1     : TEdit;
 
 
......

Ils appartiènent au conteneur qu'est la fiche (TFom1). A la fermeture de la fiche les composants sont automatiquement dédruis. Si un autre appel à la méthode Destroy ou Free, il y a forcément une violation d'accès.

Code :

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

1
2
 
EcDossier := nil;

est parfaitement inutile.

[Philippe Gormand]

Bonjour.

Si les comosants sont déclarés dans la partie Class de la fiche, il ne faut pas appeler leurs méthodes Destroy. Dailleur, Destroy ne doit jammais être appellé directement. C'est la méthode Free qui s'en charge. Mais dans le cas où les composant sont déclaé de cette façon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
type
    TForm1 = class(TForm)
 
 
     public
        Image1 : TImage;
        Edit1     : TEdit;
 
 
......

Ils appartiènent au conteneur qu'est la fiche (TFom1). A la fermeture de la fiche les comosant sont automatiquement dédruis. Si un au appel à la méthode Destroy ou Free, il y a forcément une violation d'accès.