Discussion :

[david_chardonnet]

Bonjour,

J'ai des problèmes de mémoire avec des TStringList.

Le code suivant est bogué, mais où?

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure gestion_memoire;
var
    m_liste_types:TStringList;
begin
  m_liste_types:= TStringList.Create;
  m_liste_types.Add('Une chaine exemple');
  m_liste_types.Free;
end;

Merci

David

[mixi]

Bonsoir,

J'ai utilisé ton code tel quel et je n'ai pas eu de problème... 8)

Voilà la façon dont je l'ai exécuté :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
  procedure gestion_memoire;
  var
    m_liste_types:TStringList;
  begin
    m_liste_types:= TStringList.Create;
    m_liste_types.Add('Une chaine exemple');
    m_liste_types.Free;
  end;
begin
  gestion_memoire;
end;

Le problème doit être ailleurs ? Peux-tu préciser le message que tu as eu (exception, avertissement) et qui te laisse penser qu'il puisse y avoir une mauvaise gestion de la mémoire.

[rbag]

Salut,

pour être plus juste il faudrais include le code dans un Try...finally pour être sur de la libération de la mémoire même en cas de problème:

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); 
  procedure gestion_memoire; 
  var 
    m_liste_types:TStringList; 
  begin 
    m_liste_types:= TStringList.Create; 
    try
      m_liste_types.Add('Une chaine exemple'); 
    finally
      m_liste_types.Free;
    end;
  end; 
begin 
  gestion_memoire; 
end;

[Nono40]

Le code suivant est bogué, mais où?

Quel est le problème exactement ?

[J-P-B]

Le code est bogué ... c'est à dire :
Ca ne compile pas ? Donne nous le messagedu compilo
Ca plante à l'éxécution ? Donne nous le message
Ca ne fait pas ce que tu attends ? Dis nous ce que tu veux faire, et ce que ca fait à la place

Sinon, à première vue, je dirais que créer un TStringList, le remplir, puis le libérer tout de suite ne sers pas à grand chose ... c'est certainement un test ...

[david_chardonnet]

J'avais un message de Memcheck comme quoi de la mémoire n'etait pas désallouée. Et à chaque execution du programme, 4 ko de RAM disparaissaient

J'ai trouvé... J'oubliais de faire un free...

Je croyais qu'il fallait désallouer les chaines qu'on insérait de façon individuelle...

Désolé et merci...