Discussion :

[PhilLU]

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

Code :

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

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 :

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

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

qui pose problème...
Qui a une idée?

Merci
PhilLU

[ShaiLeTroll]

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

[PhilLU]

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

[ShaiLeTroll]

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

[PhilLU]

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

Code :

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

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 :

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

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 :

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

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 :

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

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

[tourlourou]

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 ?

[ALWEBER]

Tu peux utiliser aussi la fonction "if assigned"