Invalid pointer operation

Bonjour,

lorsque je tente de fermer mon application, j'ai un message "Invalid pointer operation" qui s'affiche à la ligne:

Code:

---

FreeAndNil(GstlFsPoints);

---

(voir ci dessous)
Si je ferme le message et que tente à nouveau la fermeture, l'application se ferme bien.

Le code de la fermeture:

Code:

---

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

procedure TfrmMain.imgExitMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin pnlExit.BevelInner:= bvRaised; pnlExit.BevelOuter:= bvRaised; FreeAndNil(GstlFsxPoints);// FreeAndNil(GstlFsPoints);// FreeAndNil(GstlAirpRwysList);// FreeAndNil(GstlAirportData);// FreeAndNil(GstlRwys);// FreeAndNil(GstlApts);// FreeAndNil(GstlFs9Points);// FreeAndNil(GstlAlist);// FreeAndNil(GstlMapPoints);// FreeAndNil(GstlWPDist);// FreeAndNil(GstlAdeuPoints);// if FileExists('FlightMap.jpg') then DeleteFile('FlightMap.jpg'); if FileExists('Fuel.jpg') then DeleteFile('Fuel.jpg'); if FileExists('LdgForm.png')then DeleteFile('LdgForm.png'); if FileExists('ToForm.png') then DeleteFile('ToForm.png'); Application.Terminate; end;

---

Auriez vous une idée sur l'origine possible de ce message?

Merci de votre aide

Cordialement
Pierre

C'est parceque l'objet qui est pointé par GstlFsPoints a déjà été libéré mais que GstlFsPoints n'a pas été mis à nil.
Du coup, comme le pointeur est assigné (différent de nil) la fonction FreeAndnil essaie de libérer une seconde fois l'objet ce qui provoque cette exception.

Il est probable que l'objet pointé par GstlFsPoints ait été automatiquement libéré par un objet parent par exemple avant l'appel de ta fonction.

Met simplement la ligne en commentaire et tu ne devrais pas avoir de problème.


Pour être sur de ne pas générer de fuite mémoire dans ton application (fuite = mémoire occupée par l'occupation qui grossit au fur et à mesure de son utilisation) qui pourrait finir par geler l'application ou rendre le PC plus lent, alors, en mode débug il faut rajouter cette ligne à la fin de ta fiche principale:

Code:

---

1 2 3 4 5 6

Begin {$ifdef debug} System.ReportMemoryLeaksOnShutdown:=true; // report memory leaks when exiting the application {$endif} end.

---

Si un objet n'a pas été libéré, il te l'indiquera.

F.

Merci pour ces précieux conseils.

Voici le log obtenu après mise en commentaire de la ligne incriminée:
Pièce jointe 231605

Comment interpréter ces messages?

Pierre

Il n'est pas facile d'interpréter ce message mais il indique clairement que des objets n'ont pas été libérés correctement, ça c'est sur.
Tu utilises des fichiers ini ? peut être n'as-tu pas libérer les objets ?
Idem pour des listes de chaine TStringList.

C'est pour cette raison qu'il est nécessaire d'activer cette option dès le début d'un développement car c'est plus simple de savoir ce qu'on vient de rajouter et qui provoque ce message.

F.

Merci beaucoup pour cette réponse.
Je m'en vais faire le plombier et tenter de trouver l'origine de ces fuites.

Meilleurs vœux pour 2017.

Pierre