Discussion :

[sp2308]

Bonjour

J ai une fuite memoire dans mon appli detectee par reportmemoryleaksonshutdown := true; dans mon formcreate.

Apres analyse j ai detecté sa provenance mais je ne sais pas comment y remedier.

C est la fonction explode suivante qui provoque cela :

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 Explode(ch: string; sep: string): TStringList;
var
  p: integer;
begin
  p := pos(sep, ch);
  Explode := TStringList.Create;
  while p > 0 do
  begin
    Explode.Add(copy(ch, 1, p - 1));
    if p <= length(ch) then
      ch := copy(ch, p + length(sep), length(ch));
    p := pos(sep, ch);
  end;
  if length(ch) > 0 then
    Explode.Add(ch);
end;

de ce que je comprends la List est retournée apres avoir été crée. Mais elle n est pas detruite...

J apelle la fonction ainsi:

Code :

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

1
2
3
4
list_explode := TStringlist.Create;
list_explode := explode(Stg, ';');
     ...traitement...
list_explode.destroy;

Tous vos conseils sont les bienvenus car j apelle cette fonction dans une imbrication de boucles, soit 1156 fois...

merci de votre aide

[sp2308]

j ai solutionné le pb en procedant ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  list: TStringList;
  I: Integer;
begin
  list := TStringList.Create();
  list.Delimiter :=';';
  list.DelimitedText := 'string1;string2;string3';
  for I := 0 to list.Count - 1 do
    Memo1.Lines.Add(list[I]);
  list.Destroy;
end;

mais j aimerais tout de même savoir s il y a une solution à ce type de pb

merci

[BuzzLeclaire]

Bjr

On ne doit jamais appeler la méthode destroy directement soit tu fait :

- <TaList>.free;
ou
- If Assigned(<TaList>) then FreeAndNil(<TaList>);

bye.

[exoseven]

la fuite est logique, ta liste est créée 2 fois ...

soit tu fais comme cela


// list_explode := TStringlist.Create; // inutile
l

Code :

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

1
2
3
ist_explode := explode(Stg, ';');
     ...traitement...
list_explode.destroy;

soit tu modifies ta fonction explode pour lui passer en paramètre ta liste, et donc tu ne la crée pas dans explode !

[peter27x]

La réponse idéale étant celle qui unifiera les réponses de BuzzL'eclai et de exoseven

[retwas]

J'utilise tous le temps cette méthode

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
var
  list: TStringList;
  I: Integer;
begin
  list := nil;
 
  try
    list := TStringList.Create();
    list.Delimiter :=';';
    list.DelimitedText := 'string1;string2;string3';
    for I := 0 to list.Count - 1 do
      Memo1.Lines.Add(list[I]);
  finally
    FreeAndNil(list);
  end;
end;

[guillemouze]

sinon tu utilise directement la fonction existante

Code :

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

1
2
3
4
5
6
 
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  ExtractStrings([';'], [], PChar(Stg), sl); //necessite le uses "Classes"

Attention, cette fonction supprime les chaines vides. Si stg="a;b;;d", elle te retournera 3 element : a, b, et d.

[sp2308]

Merci pour vos réponses j ai supprimé mon Tstringlist.create.

Je vais reprendre mon code pour extraire le type de donnée et sa position etant donné que je connais la structure de ma chaine.
J y perdrais surement en temps d execution mais y gagnerais en clarté et 'robustesse'.

merci à tous