Erreur EInvalidPointer à la sortie du programme

Bonjour,
J'obtiens une erreur EInvalidPointer quand je quitte le programme alors que tout fonctionne parfaitement???

Code:

---

1 2 3 4 5 6 7 8 9 10 11

ArrivedGrid.clearAll; ArrivedGrid.rowcount:=1;   for r := 1 to SiteAll.RowCount-1 do if (SiteAll.cells[10,r]<>'') AND (SiteAll.cells[11,r]<>'') then begin ArrivedGrid.RowCount:=ArrivedGrid.RowCount+1; ArrivedGrid.Rows[ArrivedGrid.RowCount-1]:=SiteAll.rows[r]; SiteAll.RowHeights[r]:=0; //0 end; ArrivedGrid.Refresh;

---

Il semble que ce soit la ligne

Code:

---

ArrivedGrid.Rows[ArrivedGrid.RowCount-1]:=SiteAll.rows[r];

---

qui pose problème...
Qui a une idée?
:help:
Merci ;)
PhilLU

EInvalidPointer c'est en général la libération d'un pointeur déjà libéré

Tu peux utiliser aussi la fonction "if assigned"

Merci ShaiLeTroll,
Je ne libère jamais rien, à ma connaissance...

Le problème n'est pas forcément où tu crois
une boucle sur un tableau, tu écris trop loin en mémoire, la zone modifiée à tort contient une adresse (un pointeur, un objet, une string) et lors de la libération cela lit cette zone qui ne contient plus les bonnes infos, tu te retrouves avec ce genre d'erreur

Toujours pas trouvé :calim2:
En fait dans le code mentionné, si je supprime la ligne

Code:

---

ArrivedGrid.Rows[ArrivedGrid.RowCount-1]:=SiteAll.rows[r];

---

...je n'ai plus le problème?!?

En fait, sur un timer je déclenche ce code.

Code:

---

1 2 3 4 5 6 7 8 9 10

ArrivedGrid.clearAll; ArrivedGrid.rowcount:=1;   for r := 1 to SiteAll.RowCount-1 do if (SiteAll.cells[10,r]<>'') AND (SiteAll.cells[11,r]<>'') then begin ArrivedGrid.RowCount:=ArrivedGrid.RowCount+1; ArrivedGrid.Rows[ArrivedGrid.RowCount-1]:=SiteAll.rows[r]; SiteAll.RowHeights[r]:=0; //0 end;

---

Le but est de réinitialiser la grille ArrivedGrid dans laquelle je copie certaines lignes de la grille SiteAll.
Accessoirement, je masque la ligne d'origine en modifiant la hauteur de la ligne à 0. (mais la suppression de cette ligne de code n'arrange rien)

le début de ce code est:

Code:

---

1 2	ArrivedGrid.clearAll; ArrivedGrid.rowcount:=1;

---

J'ai essayé d'autres options mais sans résultat.

comme par exemple ajouter ces mêmes lignes ci-dessus dans Form.Close.

Après le plantage le pointeur est arrêté sur ces lignes:

Code:

---

1 2 3 4 5 6 7 8 9

if not (csDestroying in ComponentState) then begin if Cells[rc,j] <> '' then begin Cells[rc,j] := ''; if rc <> i then RepaintCell(i,j); end; end;

---

Merci pour vos idées :ccool:

Quand tu quittes le programme, le Timer a-t-il bien été désactivé, ou son code OnTimer cherche-t-il à ajouter une ligne à une grille qui a déjà été libérée par la fiche ?

Bonsoir Tourlourou,
J'ai désactive le timer en sortant de l'application mais aucune différence :calim2: