Discussion :

[VincentB]

Bonjour,

En Delphi , j'utilise un objet TVirtualStringtree
pour stocker des éléments dans un arbre.

À chaque élément Node : PVirtualNode de mon arbre, j'associe une structure complémentaire
que j'ai créée dynamiquement lors de la création de chaque Node grâce à la propriété Data.

voici un résumé de mon code pour être plus clair :

...

Code :

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

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
28
29
30
31
32
33
34
 
type
TTreeDataGeneral = record
  type_node : integer; 
 
  Father : TTreeDataFather;
  Child : TTreeDataChild;
 
  Modified : boolean;
  Text: string;
  ImageIndex: Integer;
  ...
end;
 
PTreeDataGeneral = ^TTreeDataGeneral;
 
 
procedure TfmMessages.creation_node_pere(Q : TZIbSqlQuery);
var
  NodeData: PTreeDataGeneral;
  Nodepapa: PVirtualNode;
 
begin
  // create tree
  // je reserve la place necessaire pour chaque node, on utilise la taille de la structure déclaré TTreeData
  Tree_messages.NodeDataSize := SizeOf(TTreeDataGeneral);
  // initialise un node
  Nodepapa := Tree_messages.AddChild(nil);
  // récupère l'adresse de data
  NodeData := Tree_messages.GetNodeData(NodePapa);
 
...
 
end;

Mon problème : depuis quelque temps, le nombre de données affiché dans l'arbre a considérablement augmenté et
après plusieurs heures d'utilisation du logiciel ( plusieurs chargements de l'arbre), une erreur "mémoire insuffisante" s'affiche.

Le logiciel monte à 60 mo d'espace ram.

Je pensais que lorsque de détruisait l'arbre ou la fenêtre de l'arbre, un free était fait sur mes structures.


Comment faire pour libérer une structure quand on a son pointeur ? Merci.

[Pierre Castelain]

Si la structure a bien été crée avec la fonction New, il te suffit d'appeler Dispose pour la libérer.

[Fabrice ROUXEL 1]

Utilises New et Dispose.

[ShaiLeTroll]

Ta Structure contient des String, ...
deplus Father et Child, ce sont des structures ou des objets, dans le second cas, il te faudra les libérer si tu les a crée

de plus, le Dispose pour correctement fonctionner doit connaitre le type du pointeur pour effectuer un finalize de la structure.

Code :

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

Dispose(PTreeDataGeneral((Node.Data));

voir aussi, exactement la même demande !
http://www.developpez.net/forums/sho...hlight=dispose

Je faisais cela surtout pour la compréhension du code, et j'avais remarqué une baisse mémoire dans certains cas (j'ai la plupart du temps banni les string des record géré en pointeur au profit de array of char) et finalement c'est très important de précisé ...

[Pedro]

de plus, le Dispose pour correctement fonctionner doit connaitre le type du pointeur pour effectuer un finalize de la structure.

T'es sûr de ce que tu avances là?

Parce que si je fais:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
var t: TList;
     Index: integer;
 
procedure Debut;
i: ^integer;
begin
  t := TList.Create;
  New(i);
  i^ := 5;
  Index := t.Add(i);
end;
 
procedure Fin;
begin
  Dispose(t.Items[Index]);
  t.Delete(Index);
end;

Je n'ai pas besoin de savoir si ce que contient Items[i] est du type integer ou TBiduleChouette

[ShaiLeTroll]

regarde en ASM (fenêtre CPU), Dispose doit en théorie être remplacé par FreeMem, ...

la mémoire allouée est 4o pour l'entier, dispose connait dans sa table mémoire que le pointeur a alloué 4o donc il libère ...

tu remplace ton entier par une chaine, dispose connait dans sa table mémoire que le pointeur a alloué 4o donc il libère le pointeur sur la chaine, mais le tableau associé à la chaine est toujours là, en précisant le type, il effectuera un finalize (fait F1 sur cette fonction)

[VincentB]

Merci beaucoup pour votre aide. Grâce à cela, mon problème est résolu