Discussion :

[free07]

Bonjour,

J'ai une fonction d'une unité qui renvoie une instance sur un objet d'une liste créée localement

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
 
 
TMaListe = class(TObjectList)  
...    
end;
 
Function Unit.RenvoieObjet : TMonObject;
var Liste : TMaListe;
    ObjetTrouve : Integer;
begin
   Liste := TMaListe.create;
   ...
   Result := Liste.items[ObjetTrouve];
   ...
end;

Le problème est que je ne peux pas libérer la liste créée localement vu que cette fonction renvoie une instance sur un objet de cette liste pour être utilisée par la suite et donc fuite mémoire, comment résoudre ce problème élégamment ?

[ShaiLeTroll]

Tu peux utilise Extract pour retirer un objet d'une liste sans le libérer mais ce n'est pas très performant comme opération dans une TObjectList car Extract fait un Find de l'instance
Mais l'affection à nil fonctionne aussi en jouant sur OwnObjects ... je l'ai dans un code assez récent, cela fonctionne TObjectList<> en tout cas .

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
Function Unit.RenvoieObjet : TMonObject;
var
   Liste : TMaListe;
   O: TObject;
    ObjetTrouve : Integer;
begin
   Liste := TMaListe.create(False);
   try
     Result := Liste.items[ObjetTrouve];
     Liste.items[ObjetTrouve] := nil; 
   finally
     Liste.OwnsObjects := True;
 
     Liste.Free();
   end;
end;

Donc OwnObjects à False si la liste n'est plus utile et une gestion manuelle de la libération hors de l'instance obtenue.
Autre approche que l'affectation à nil

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
Function Unit.RenvoieObjet : TMonObject;
var
   Liste : TMaListe;
   O: TObject;
    ObjetTrouve : Integer;
begin
   Liste := TMaListe.create(False);
   try
     Result := Liste.items[ObjetTrouve];
   finally
     for o in Liste do
       if o <> Result
         o.Free(); 
 
     Liste.Free();
   end;
end;

Soit la liste est requise plus tard, tu peux faire un Singleton de TMaListe

tu poser oser ceci

Code :

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

1
2
3
4
5
6
7
8
TMaListe = class(TObjectList)  
strict private
  class var FInstance: TMaListe;
public
  class property Singleton: GetInstance(): TMaListe 
  class function GetInstance(): TMaListe;
  class destructor Destroy();
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
class function TMaListe.GetInstance(): TMaListe;
begin
  if not Assigned(FInstance) then
    FInstance := TMaListe.Create();
 
  Result := FInstance;
end;
 
class destructor TMaListe.Destroy();
begin
  FreeAndNil(FInstance);
end;

Code :

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

1
2
3
4
5
6
Function Unit.RenvoieObjet : TMonObject;
var
    ObjetTrouve : Integer;
begin
     Result := TMaListe.Singleton.items[ObjetTrouve];
end;

[pprem]

Par défaut le TObjectList prend la main sur les objets qu'on lui associé. Tu peux changer ça en modifiant ses paramètres ou tout simplement en utilisant un TList qui ne s'occupera pas d'allocation mémoire pour les éléments que tu lui fournis.

Par contre, dans ce cas, ce sera à toi de faire le ménage lors de la suppression de la liste si tu ne l'as pas fait ailleurs pour tous les éléments qu'elle contient.

[free07]

Bonjour

Et merci pour votre aide.

Finalement j'ai fait en sorte de ne pas avoir besoin d'utiliser cette liste et c'est tant mieux, entre nous soit dit, utiliser une liste pour charger un objet, c'est un peu couillon

Je mets en résolu.

[ShaiLeTroll]

...utiliser une liste pour charger un objet, c'est un peu couillon

Si l'on obtient qu'un seul objet à chaque fois, oui !
Si c'était le résultat d'une recherche, un peu con de ne prendre qu'un seul.

Perso, dans le code que j'évoque où j'avais une TObjectList<> que je dépossédais de ses objets, c'était pour tous les mettres dans une TListView qui prenait la charge des objets par la suite, comme des Vases communicants, on ne sait jamais, la boucle sur 5000 éléments peut planter (trop de handles pour ajouter dans la TListview), alors tout ce qui n'a pas été transférés au TListView en responsabilité restaient à la charge de la TObjectList... qui devait les libérer quand même.

[free07]

Si l'on obtient qu'un seul objet à chaque fois, oui !
Si c'était le résultat d'une recherche, un peu con de ne prendre qu'un seul.

Oui, c'est le cas ! C'est juste pour ne prendre qu'un seul objet, la liste n'est pas utilisée par ailleurs.