Discussion :

[TryExceptEnd]

Bonjour a tous,
j'ai un probleme avec TStringList; avec une fonction que voici :

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
18
19
function pModeReglement:TStringList;
var List:TStringList;
begin
 with TFChoixReglement.Create(Application) do begin
  ShowModal;
  List:=TStringList.Create;
  List.Clear;
  try
  if ModalResult=mrOk then begin
   List.Add(ComboBox1.Text);
   List.Add(Edit1.Text);
  end;
  Result:=List;
  finally
  List.Free;
  Free;
  end;
 end; 
end;

je recupere la valeur de la fonction de cette façon :

Code :

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

1
2
3
4
5
var vList:TStringList;
.../...
 vList:=TStringList.Create;
 vList.Clear;
 vList.AddStrings(pModeReglement);

Eh bien, ça ne marche pas, ni avec :

Code :

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

vList:=pModeReglement;

Ai-je raté un truc ?

[TicTacToe]

Ceci est tout à fait normal, la liste est créée en variable locale, et donc libérée à la sortie de ta fonction -> au moment du addstring, la liste est inexistante.

Une autre solution, est non pas de retourner un TStringList, mais de passer ta 'vList' en paramètre de pModeReglement, et d'y ajouter les éléments correspondant.

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
14
procedure pModeReglement( vList: TStringList );
begin
  ...
  vList.Add( ComboBox1.Text );
  vList.Add( Edit1.Text );
  ...
end;
 
// et l'appel:
var vList:TStringList;
.../...
 vList:=TStringList.Create;
 vList.Clear; // <-- inutile d'ailleurs vu que la liste vient d'être créée
 pModeReglement( vList )

[Paul TOTH]

Ceci est tout à fait normal, la liste est créée en variable locale, et donc libérée à la sortie de ta fonction -> au moment du addstring, la liste est inexistante.

PARDON ?

Non le seul problème dans son code est le "List.Free" qui fait que l'objet retourné a été détruit !

le "Result:=List" ne fait que recopier le pointer d'instance, les classes delphi ne sont pas statiques, donc Result et List sont le même objet qu'il ne faut surtout pas libérer.

[TicTacToe]

Doucement doucement

Il y a plusieurs solutions à ce problème Paul TOTH.

Evidemment, on peut éviter de désallouer la liste dans la fonction appelée, cela fonctionne et c'est une solution.

Pour ma part, j'aime bien que les allocations/désallocations soient symétriques.
C'est pour cela que je préconisais de pas allouer une 2eme liste dans la fonction appelée, mais simplement de passer en paramètre la liste initiale.
-> ainsi l'allocation/désallocation de la liste est gérée par l'appelant.

le "Result:=List" ne fait que recopier le pointer d'instance, les classes delphi ne sont pas statiques, donc Result et List sont le même objet qu'il ne faut surtout pas libérer.

De plus, tu as raison, ceci effectue une copie de la référence de la liste, mais... référence qui est détruite de manière locale dans la fonction appelée.
Ainsi, dans la fonction appelante, le résultat pointe vers le no man's land en mémoire -> c'est pourquoi cela ne fonctionne pas.

La solution de ne pas désallouer la liste créée par la fonction appelée, doit donc être détruite par la fonction appelante... je trouve juste cela moyen

[Paul TOTH]

La solution de ne pas désallouer la liste créée par la fonction appelée, doit donc être détruite par la fonction appelante... je trouve juste cela moyen

ben tout dépend de ce que tu veux faire, mais je ne trouve rien de choquant dans son code.

imagine :

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
18
19
20
 
function StringListFromFile(const FileName:string):TStringList;
begin
 Result:=TStringList.Create;
 if FileExist(Path1+FileName) then
  Result.LoadFromFile(Path1+FileName)
 else
 if FileExist(Path2+FileName) then
  Result.LoadFromFile(Path2+FileName);
end;
 
var
 l1,l2:TStringList;
begin
 l1:=StringListFromFile('file1.txt');
 l2:=StringListFromFile('file2.txt');
 ...
 l1.free;
 l2.free;
end;

je ne trouve pas que l'autre solution soit plus élégante

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
18
19
20
21
 
procedure StringListFromFile(List:TStringList; const FileName:string);
begin
 if FileExist(Path1+FileName) then
  List.LoadFromFile(Path1+FileName)
 else
 if FileExist(Path2+FileName) then
  List.LoadFromFile(Path2+FileName);
end;
 
var
 l1,l2:TStringList;
begin
 l1:=TStringList.Create;
 l2:=TStringList.Create;
 StringListFromFile(l1,'file1.txt');
 StringListFromFile(l2,'file2.txt');
 ...
 l1.free;
 l2.free;
end;

[TryExceptEnd]

Et je fait quoi moi ?

C'est vrai que le fait de ne pas détruire la liste(List) dans la fonction alors qu'elle est créer dans celle-ci, me gène plutôt.
J'aurais tendence a préférer la solution de la procedure de TicTacToe, même si toutes les solutions se valent.

vList.Clear; // <-- inutile d'ailleurs vu que la liste vient d'être créée.

En fait, j'ai peur que la list ne prenne des valeurs aléatoire a sa création.

[sjrd]

En fait, j'ai peur que la list ne prenne des valeurs aléatoire a sa création.

Eh bien n'aie plus peur. Une string list nouvellement créée est toujours vide, sans exception. Et il n'y a pas de valeurs aléatoires qui traînent

[TryExceptEnd]

Eh bien n'aie plus peur. Une string list nouvellement créée est toujours vide, sans exception. Et il n'y a pas de valeurs aléatoires qui traînent

Peur ? façon de parler, bien-sûr.
Merci pour la précision.

[e-ric]

Salut

Je pense qu'il vaut mieux passer ta liste en paramètre sans allouer une liste interne à ta fonction. Le problème réside dans le fait que l'instance de TStringList est créée localement, ta fonction se comporte en quelque sorte comme un constructeur et l'objet instancié devrait donc être libéré dans l'appelant.
Ceci n'est bien sûr pas une règle absolue, mais selon les infos que tu nous transmets j'aurais tendance à préférer le code suivant :

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
 
procedure pModeReglement(List:TStrings);
begin
  with TFChoixReglement.Create(Application) do 
  begin
    ShowModal;
    try
      if ModalResult=mrOk then
      begin
        List.Add(ComboBox1.Text);
        List.Add(Edit1.Text);
      end;
    finally
      Release; // préférable à Free
    end;
  end; 
end;

et dans le code appelant

Code :

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

1
2
3
4
5
6
7
 
var 
  vList:TStringList;
.../...
 vList:=TStringList.Create;
 vList.Clear;
 pModeReglement(vList);

ce qui évite aussi une allocation et une libération d'objet, ici superflues.
cdlt

[TryExceptEnd]

Salut

Je pense qu'il vaut mieux passer ta liste en paramètre sans allouer une liste interne à ta fonction. Le problème réside dans le fait que l'instance de TStringList est créée localement, ta fonction se comporte en quelque sorte comme un constructeur et l'objet instancié devrait donc être libéré dans l'appelant.
Ceci n'est bien sûr pas une règle absolue, mais selon les infos que tu nous transmets j'aurais tendance à préférer le code suivant :

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
 
procedure pModeReglement(List:TStrings);
begin
  with TFChoixReglement.Create(Application) do 
  begin
    ShowModal;
    try
      if ModalResult=mrOk then
      begin
        List.Add(ComboBox1.Text);
        List.Add(Edit1.Text);
      end;
    finally
      Release; // préférable à Free
    end;
  end; 
end;

et dans le code appelant

Code :

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

1
2
3
4
5
6
7
 
var 
  vList:TStringList;
.../...
 vList:=TStringList.Create;
 vList.Clear;
 pModeReglement(vList);

ce qui évite aussi une allocation et une libération d'objet, ici superflues.
cdlt

C'est ce qu'a proposé TicTacToe, j'ai une autre proposition a soumettre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function pModeReglement:TStringList;
begin
 with TFChoixReglement.Create(Application) do begin
  ShowModal;
  Result:=TStringList.Create;
  try
  if ModalResult=mrOk then begin
   Result.Add(ComboBox1.Text);
   Result.Add(Edit1.Text);
  end;
  finally
   Free;
  end;
 end;

et ensuite :

Code :

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

1
2
3
4
5
6
 
var 
  vList:TStringList;
.../...
vList:=TStringList.Create;
 vList:=pModeReglement;

Je me demande quel est le sort de la liste ainsi crée (dans la fonction) aprés son utilisation ?

[TicTacToe]

Il n'y a pas de soucis, ca marche aussi

C'est exactement ta toute 1ere solution sans le Free, et sans variable intermédiaire représentant ta liste locale, mais c'est tout rien de plus
-> et attention donc a faire une désallocation de la liste après l'appel de ta fonction.

Enfin, si je puis me permettre, dans ton cas précis, inutile d'allouer 2 fois une liste, de recopier une liste dans une autre etc...
La passage de la liste en paramètre simplifie le code (plus de create à gérer dans la fonction appelée), et (à mon sens) est plus logique et rapide.

[TryExceptEnd]

Merci TicTac...

Il n'y a pas de soucis, ca marche aussi

C'est exactement ta toute 1ere solution sans le Free, et sans variable intermédiaire représentant ta liste locale, mais c'est tout rien de plus
-> et attention donc a faire une désallocation de la liste après l'appel de ta fonction.

Comment faire la libération de la liste dans la fonction appelante ? par un :

Code :

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

pModeReglement.free

J'ai essayé et ça fait un appel a la fonction un 2eme fois !

Enfin, si je puis me permettre, dans ton cas précis, inutile d'allouer 2 fois une liste, de recopier une liste dans une autre etc...
La passage de la liste en paramètre simplifie le code (plus de create à gérer dans la fonction appelée), et (à mon sens) est plus logique et rapide.

C'est sûrement vrai, mais on ne veut faire qu'a notre tête, comme tout les developpeurs

[TicTacToe]

Il ne faut pas perdre de vu que pModeReglement est une fonction. Si tu l'inscris 2 fois dans le code, elle sera appelée 2 fois.

Pour libérer la liste allouée dans pModeReglement,
Lors de l'appel il faut faire

Code :

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

1
2
3
4
5
6
var
  MaListe: TStringList;
begin
  MaListe := pModeReglement;
  // utilisation de MaListe...
  MaListe.Free;

comme l'a montré Paul Toth

[TryExceptEnd]

Je crois que je me suis mal exprimé, je voulais dire en fait comment libérer la liste créer (par Result:=TStringList.Create) dans la fonction (pModeReglemnt) après l'appelle de cette fonction;
Etant donnée que cette liste n'est pas libérée dans la fonction (pModeReglement) ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function pModeReglement:TStringList;
begin
 with TFChoixReglement.Create(Application) do begin
  ShowModal;
  Result:=TStringList.Create;// Liste créer mais non libéré dans cette fonction
  try
  if ModalResult=mrOk then begin
   Result.Add(ComboBox1.Text);
   Result.Add(Edit1.Text);
  end;
  finally
   Free;
  end;
 end;

Courage, on y arriveras.

[sjrd]

Euh ben exactement comme TicTacToe l'a écrit dans son dernier message.

Où est le problème ?

[gb_68]

Bonjour

Les objets en Delphi se manipulent par pointeur (par "référence" si tu préfères) et sont alloués dans le tas. Donc plusieurs variables peuvent pointer vers un même objet, mais aussi vers aucun (= nil), vers une zone invalide (l'objet a été détruit, ex: par free) et des objets inaccessibles peuvent subsister dans le tas (on a oublié de les libérer -> fuites mémoires).

Ainsi dans le code :

Code :

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

1
2
3
4
vList:TStringList;
.../...
vList:=TStringList.Create;
vList:=pModeReglement;

Une TStringList est créée par vList:=TStringList.Create; mais sa référence est perdu à la ligne suivante vList:=pModeReglement; (remplacée par la référence d'un autre objet) et ne peut plus être désalloué (sauf si tu fait du Delphi.Net mais je ne crois pas ).

[Bruno Orsier]

C'est ce qu'a proposé TicTacToe, j'ai une autre proposition a soumettre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function pModeReglement:TStringList;
begin
 with TFChoixReglement.Create(Application) do begin
  ShowModal;
  Result:=TStringList.Create;
  try
  if ModalResult=mrOk then begin
   Result.Add(ComboBox1.Text);
   Result.Add(Edit1.Text);
  end;
  finally
   Free;
  end;
 end;

et ensuite :

Code :

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

1
2
3
4
5
6
 
var 
  vList:TStringList;
.../...
vList:=TStringList.Create;
 vList:=pModeReglement;

Je me demande quel est le sort de la liste ainsi crée (dans la fonction) aprés son utilisation ?

La liste de la fonction est affectée a vList, et sera libérée avec vList.Free ; par contre avant cette affectation, vList contenait déjà une instance de Tstringlist, à cause de vList:=TStringList.Create; comme indiqué par gb_68.

Cette première instance ne sera jamais libérée. C'est un cas typique d'une fuite mémoire souvent difficile à identifier. Donc une construction à éviter absolument.

Bruno

[TryExceptEnd]

La liste de la fonction est affectée a vList, et sera libérée avec vList.Free ; par contre avant cette affectation, vList contenait déjà une instance de Tstringlist, à cause de vList:=TStringList.Create; comme indiqué par gb_68.

Cette première instance ne sera jamais libérée. C'est un cas typique d'une fuite mémoire souvent difficile à identifier. Donc une construction à éviter absolument.

Voila la réponse que j'attendais et que j'appréhendais, la liste crée dans la fonction ne serait pas libérée.
Donc,il y a bien une seule solution valable :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure pModeReglement(sList:TStringList);
begin
 with TFChoixReglement.Create(Application) do begin
  ShowModal;
  try
  if ModalResult=mrOk then begin
   sList.Add(ComboBox1.Text);
   sList.Add(Edit1.Text);
  end;
  finally
  Free;
  end;
 end;
end;

Code :

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

1
2
3
4
5
6
7
8
9
 var vList:TStringList;
.../...
 vList:=TStringList.Create;
 try
 pModeReglement(vList);
 .../...
 finally
  vList.Free;
 end;

Merci a tous.

[TicTacToe]

Problème résolu ?

-> alors un clic sur

[Bruno Orsier]

Voila la réponse que j'attendais et que j'appréhendais, la liste crée dans la fonction ne serait pas libérée.

je pinaille surement, mais la liste créée dans la fonction sera bien libérée, c'est la 1ère liste qui sera perdue. En simplifiant au maximum,

Code :

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

1
2
3
4
 
vList := TStringList.Create ; // référence qui sera perdue
vList := TStringList.Create ;
vList.Free ;

B.