Discussion :

[NoisetteProd]

Salut !

J'ai une question concernant les TStringList, plus exactement, les fonctions renvoyant un TStringList.
exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function GetList : TStrings;
begin
  Result := TStringList.Create; //Création de la liste
  try
    // je remplis la liste
    Result.Add('toto');
  except
    on E : Exception do
      begin
        result.Free;
      end;
  end;
end;

Cette function marche très bien.
Mais le problème est le suivant : comment libérer dans le cas ou la fonction marche correctement la liste result crée ??
La fin de la fonction libère t-elle automatiquement la liste ??

J'espère avoir été assez clair ! Merci de m'aider !
Noisette

[cpdump]

Tu veux faire quoi exactement ? Tu veux libérer la stringlist dans la fonction ? pourquoi renvoyer un Tstrings alors

Déja il faut utiliser un FreeAndNil dans la gestion de l'exception sinon tu renvoie une référence sur un 'objet n'existant plus.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function GetList : TStrings;
begin
  Result := TStringList.Create; //Création de la liste
  try
    // je remplis la liste
    Result.Add('toto');
  except
    on E : Exception do
      begin
        FreeAndNil(result);
      end;
  end;
end;

[eponette]

Pourquoi ne pas faire une propriété List, qui charge une variable FList de type TStrings et la fonction GetList associée à la propriété Charge FList et renvoie ce Field?

Genre

Code :

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

1
2
3
 
FList: TStrings
property List: TStrings read GetList;

tu crées et détruis l'objet FList dans les constructeur/destructeur

Code :

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

1
2
3
4
5
6
 
function GetList: TStrings;
begin
//Tu remplis to FList
  result := FList;
end;

Voici mes 5 eurocents

[qi130]

Utilises un try...finally en majeur:

Code :

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

1
2
3
4
5
6
 
Try
    ton try...except sans le Free
Finally
    Result.Free;
end;

[NoisetteProd]

Salut ! J'ai du mal m'exprimer !

Je ne souhaites pas libérer ma liste dans la fonction !
Je souhaites juste pourvoir libérer la liste une fois que j'ai fini de l'utilisée !

Je crois que j'ai trouvé... Dites moi ce que vous en pensez...

Code :

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

1
2
3
Liste := TStringList.Create; //Création de la liste
Liste.Assign(GetList);
GetList.Free;

Merci
Noisette

[tourlourou]

tu peux aussi faire qqch du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure GetList(var Liste : TStingList) : Boolean;
begin
 try
  Liste.Add('machin');
  Result := True;
 except
  Result := False;
 end;
end;
//...
Liste := TStringList.Create;
if not GetListe(Liste) then FreeAndNil(Liste);

[NoisetteProd]

Effectivement, j'ai pris la solution de tourlourou :

Code :

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

1
2
3
4
5
6
7
8
9
10
function GetListe(Liste : TStrings) : bool;
  begin
      Liste.Clear;
      Liste.add('TOTO');
  end;
//......
 
MaListe := TStringList.Create; //Création de la liste
if GetLIste(MaListe) then ...
MaListe.free;

Merci à tous.
Noisette

[Bloon]

Quel que soit le résultat de la fonction, tu dois libérer la liste, il faudrait donc écrire, pour être propre :

Code :

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

1
2
3
4
5
6
7
8
9
MaListe := TStringList.Create;
try
  if GetListe(MaListe) then
  begin
    ... traitement
  end;
finally
  MaListe.free; 
end;

Bloon

[NoisetteProd]

Yes Bloon,

J'ai mis le Try ... Finally dans mon code, je ne l'ai juste pas retranscrit sur le forum. Je voulais mettre en exergue, la manière dont je passait la liste à la fonction.

A+
Noisette