Discussion :

[Tchaill39]

Afin de libérer correctement la memoire de mon Tlist qui contient un record (X,Y), je libère à l'aide de la fonction dispose un à un les pointeurs de 0 à count-1, comme il est indiqué dans l'aide. Puis je veux libérer ma Tlist. Cependant lorsque j'écris liste.free, j'ai une erreur "Opération pointeur incorrecte" qui apparait. D'ou peut venir cette erreurl, comment la contourner?

Merci à vous.

[Nono40]

Tu as une erreur sur la ligne du free ou sur une autre ligne ?

[LadyWasky]

As-tu mis tes pointeurs à nil juste après le dispose ?

[Tchaill39]

Non je n'ai pas d'erreur à la compilation. Par contre je n'ai pas mis mes pointeurs à nil. Quel en est l'intèret, puisque le dispose est censé libérer la mémoire?

[e-ric]

Salut

Ce n'est pas normal, montre le code s'il n'est pas trop difficile à extraire.


cdlt

e-ric

[LadyWasky]

Non je n'ai pas d'erreur à la compilation. Par contre je n'ai pas mis mes pointeurs à nil. Quel en est l'intèret, puisque le dispose est censé libérer la mémoire?

Si tu ne te mélange pas les pinceaux pour la libération de tes objets, ça n'a effectivement aucun intéret !

MAIS :
1) Si ton pointeur est à nil, tu es sur qu'il a déjà été libéré et qu'il ne pointe donc sur rien, dans le cas contraire tu n'en a aucune certitude : essaies de faire deux dispose d'affilée sur le même pointeur, tu verras ; essaies ce code pour voir (dans une fiche, tu mets un bouton et tu code le clic comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
type
Str18 =string[18];
var
P:^Str18;
begin
New(P);
P^ :='Test...';
Dispose(P);
Dispose(P);  //<--déclenchement d'une erreur
end;

2) Il est possible que ta violation d'accès vienne de là

3) en général je fait une petite procedure pour libérer mes pointeurs sans erreurs, du style :

Code :

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

1
2
3
4
5
6
7
8
9
 
Procedure LiberePointeur(P:pointer);
begin
  if P<>nil then 
  begin
     dispose(P);
     P:=nil;
  end;
end;

sinon, effectivement, l'exemple dans l'aide Delphi donne ça :

Code :

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

1
2
3
4
5
6
7
8
9
for B :=0 to(MyList.Count -1)do
 
begin
ARecord :=MyList.Items[B];
Dispose(ARecord);
end;
finally
MyList.Free;
end;

Sauf que ce code n'est pas bon si la liste est vide ! (Count=0), à la place avant de parcourir tout les éléments d'une liste il faut toujours s'assurer que la liste contient déjà quelque chose :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
if MyList.Count>0 then
for B :=0 to(MyList.Count -1)do
 
begin
ARecord :=MyList.Items[b];
if ARecord<>nil then begin
                                 Dispose(ARecord);
                                 ARecord:=nil;
                              end;
end;
finally
MyList.Free;
end;

Enfin, la méthode Free, de TList, appelle la méthode Destroy, qui appelle la méthode Clear, qui appelle la méthode SetCount, qui appelle la méthode Delete, qui appelle la méthode virtuelle Notify en testant pour ce dernier appel si ton pointeur est différent de nil !

[Tchaill39]

En fait la violation d'accès se manifestait lors du dispose, mais l'erreur était ailleurs. Dans la même procedure j'ai un tableau dynamique auquel j'allouais une valeur hors de ses bornes. Du coup, cela endommageait une partie de la liste, et je ne pouvais plus la désallouer.
C'est un peu vicieux quand même! Vive les pointeurs.....

Merci pour votre aide.

A+

[e-ric]

Code :

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

1
2
3
4
5
6
7
8
9
 
Procedure LiberePointeur(P:pointer);
begin
  if P<>nil then 
  begin
     dispose(P);
     P:=nil;
  end;
end;

Il serait plus juste d'écrire :

Code :

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

1
2
3
4
5
6
7
8
9
 
Procedure LiberePointeur(var P:pointer);
begin
  if P<>nil then 
  begin
     dispose(P);
     P:=nil;
  end;
end;

Sinon l'affectation P:=Nil n'a pas d'impact dans l'appelant. C'est juste une petite remarque.

cdlt

e-ric[/b]

[LadyWasky]

Tout à fait (j'ai tapé le code un peu trop vite là... )