Discussion :

[phoenixgreg]

Bonjour !

Dans mon soft je dois remplir un TlistView plusieurs fois :

Code :

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

1
2
3
4
 
ListItem := LVPublicHolidays1.items.add;
ListItem.Caption := DataSetHolSelect.Fields[ i_langSelect + 1 ].AsString;
ListItem.SubItems.add(DataSetHolSelect.Fields[ i_langSelect + 1 ].AsString);

sauf que j'ai remarqué qu'à chaque fois que je rajoute des lignes la mémoire de mon soft augmente (normal jusque là).
Mais j'ai beau supprimer les lignes de mon TListView ou de destroy mon TListItem, ma mémoire n'est pas libérée et augmente toujours.
Je suis sous Delphi 2007 et j'ai vu sur le net que ce serait un bug sous l'époque Borland, y a-t-il une alternative ?

Merci pour votre soutient !

[Papy214]

Comment les lignes sont-elles "supprimées" ?

[phoenixgreg]

Salut Papy214,

Code :

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

1
2
 
LVPublicHolidays1.Items.clear();

[Papy214]

Je n'ai pas de 2007 sous la main mais je vois 2 tests possibles:

Utiliser ListView1.Items.Delete(); sur chaque élément plutôt qu'appeler le clear.

Envisager que le problème vient de la libération de SubItems et faire un clear sur chaque SubItem des item et finir par un clear sur le liste générale.

[phoenixgreg]

J'ai essayé ListView1.Items.Delete() sur chaque éléments, change rien.
Je n'ai pas de SubItem donc je pense pas que ce soit cela.

[Papy214]

J'ai essayé ListView1.Items.Delete() sur chaque éléments, change rien.
Je n'ai pas de SubItem donc je pense pas que ce soit cela.

Ah ???

ListItem.SubItems.add(DataSetHolSelect.Fields[ i_langSelect + 1 ].AsString);

[phoenixgreg]

Oula oui pardon, bon ça change rien ma mémoire augmente toujours quand je rempli mon TListView et n'est jamais libérée...

[retwas]

J'ai le même problème sur un Delphi 10.1 Berlin.

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
procedure TForm1.Button1Click(Sender: TObject);
var
   Item : TListItem;
   i    : integer;
begin
   try
      for i := 0 to 1000 do
      begin
         Item := ListView1.Items.Add;
         Item.Caption := 'aaa';
         Item.SubItems.Add('bbb');
      end;
   finally
      ListView1.Clear;
   end;
end;

J'ai essayé :
- ListView1.Clear;
- Boucle downto avec un ListView1.Items.Delete(i);
- Ajouter les items avec Item := TListItem.Create(ListView1.Items);
- Ou encore de stocker mes "Item" et de les libérer via une List<T>;

Mais pas mieux, mon appli (TForm avec un bouton et un listview) passe de 1.4 à 1.7mo, et continue d'augmenter si je lance la procédure d'ajout.

Avec FastMM4 je ne voit pas de fuite mémoire pourtant.

[Papy214]

ici, sur Berlin, il monte effectivement de 1.4 à 1.8 mais ensuite, ça ne bouge plus même si je lance le code 20 fois de suite

[retwas]

ici, sur Berlin, il monte effectivement de 1.4 à 1.8 mais ensuite, ça ne bouge plus même si je lance le code 20 fois de suite

C'est vrai qu'il se calme mais ça augmente encore (moins vite), il est passé à 1.9 et ensuite 2.1 en cliquant pas mal de fois.

C'est quand même un peu bizarre

[phoenixgreg]

Oui il va falloir que je trouve un autre composant, peut-être en passant par JEDI, qql a une idée ?

[foetus]

• Virtual-TreeView
• EasyListview (plus maintenue, installer MustangpeakCommonLib avant, et éventuellement MustangpeakVirtualshellTools)

[Papy214]

il n'y a pas un équivalent dans la rxlib ?
un portage jusqu'à Berlin existe ici : http://www.micrel.cz/RxLib/dfiles.htm

[phoenixgreg]

Bon on va prendre Virtual-TreeView au moins je le connais ^^ merci

[phoenixgreg]

Alors autant pour moi tout est normal, j'ai juste oublié de regarder que dans mon TListView1.OnChange() j'avais en gros oublier de libérer un objet quoi ....
Donc en effet il y a un peu de mémoire allouée à la première visualisation et insertion de mon TListView1 mais après rien ne bouge (Delphi 7).

Merci pour vos réponses en tout cas !