Discussion :

[T-B]

bonjour,

j'ai une fonction qui retourne un tstringlist que je voudrait récuperer dans un combo.

j'ai essayé ça mais pas bon

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
22
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  combobox1.Items.AddStrings(liste);
end;
 
 
function TForm1.liste : TstringList;
Var
 l : TstringList;
begin
 
 l :=  TstringList.create ;
 
  l.Add('a');
  l.Add('b');
  l.Add('c');
 
  Result := l;
 
 l.free;
end;

Merci

[tourlourou]

Code :

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

1
2
3
4
5
6
7
function TForm1.liste : TstringList;
begin
  Result :=  TstringList.create ;   
  Result.Add('a');
  Result.Add('b');
  Result.Add('c');
end;

ou

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
function TForm1.liste : TstringList;
Var
 l : TstringList;
begin
 
 l :=  TstringList.create ;
 
  l.Add('a');
  l.Add('b');
  l.Add('c');
 
  Result := l;
 
//  l.free; // autant ne pas le détruire avant de le transmettre !
end;

[T-B]

Merci

ma fonction function liste : TstringList est dans une autre unité, je detruit quand ma liste ?

Merci

[evarisnea]

en principe tu détruis ta liste après son utilisation en dehors de la fonction.

[Qwazerty]

SAlut

en principe tu détruis ta liste après son utilisation en dehors de la fonction.

Etant donné que L (stringlist) a ete declaré dans une procedure, comme la detruire apres l'appel a cette procedure ?

Il peut etre interessant de le savoir car je ne me suis jamais soucié de ca.

A++
Qwaz

[Jipété]

Etant donné que L (stringlist) a ete declaré dans une procedure

Probablement lié à une erreur de frappe, style code improvisé dans l'éditeur de post.
Tu crois pas ?
--
jp

[sjrd]

Cela ne pose aucun problème particulier. Sa référence est renvoyée dans la valeur de retour, donc il suffit de récupérer cette référence, et de faire un Free dessus plus tard

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  List: TStringList;
begin
  List := liste;
  try
    ComboBox.Items.AddStrings(List);
  finally
    List.Free;
  end;
end;

[PapyJohn]

Si tu veux qu'une foncion de renvoi en stringliste il faut quelle est une existance en dehors de la fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function TForm1.liste : TstringList;
Var
 l : TstringList;
begin
 l :=  TstringList.create ;
  l.Add('a');
  l.Add('b');
  l.Add('c');
  Result := l;
 l.free;
end;

Non seulement cette fonction ne fait pas ce que tu veux mais il y a de fort chance qu'elle provoque une violation de mémoire quand tu utilisera le résultat

Pourquoi?
Quand tu arrives dans ta fonction Delphi prends l'espace memoire de la liste dans sa zone des valeurs locales, éventuellement la pile il faudrait verifier.
Quand tu fais result:=i il empile l'adresse de la liste
En quittant la fonction Delphi rend la place occupée par les variables locales
Donc l'adresse qu'il a empilé pointe alors sur une zone désallouée


Pour que ton code soit bon il faut que la TsringList soit declarée precedement à l'appel
voici une des solutions possibles

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 TForm1.Button1Click(Sender: TObject);
Var
 MesChoix : TstringList;
begin
 MesChoix :=  TstringList.create ;
 combobox1.Items.AddStrings(liste(MesChoix));
 MesChoix.free
end;
 
function TForm1.liste(Var I: TlisteString) : TlisteString;
begin
  l.Add('a');
  l.Add('b');
  l.Add('c');
Result:=i
end;

Je n'ai pas tester mais a une faute de frappe pres cela doit etre bon

à sjrd
Tu as essayé mon move? Cela donne quel résultat?

PapyJohn

[sjrd]

Pourquoi?
Quand tu arrives dans ta fonction Delphi prends l'espace memoire de la liste dans sa zone des valeurs locales, éventuellement la pile il faudrait verifier.
Quand tu fais result:=i il empile l'adresse de la liste
En quittant la fonction Delphi rend la place occupée par les variables locales
Donc l'adresse qu'il a empilé pointe alors sur une zone désallouée

Sauf que t'as oublié un détail : la string list est allouée sur le tas, donc elle n'est pas sur la pile et n'est pas désallouée parce que l'appel se termine. C'est le Free qui la libère explicitement. S'il n'y a pas de Free, cela fonctionne très bien.

Pour que ton code soit bon il faut que la TsringList soit declarée precedement à l'appel
voici une des solutions possibles

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 TForm1.Button1Click(Sender: TObject);
Var
 MesChoix : TstringList;
begin
 MesChoix :=  TstringList.create ;
 combobox1.Items.AddStrings(liste(MesChoix));
 MesChoix.free
end;
 
function TForm1.liste(Var I: TlisteString) : TlisteString;
begin
  l.Add('a');
  l.Add('b');
  l.Add('c');
Result:=i
end;

Je n'ai pas tester mais a une faute de frappe pres cela doit etre bon

On ne passe jamais une string list par référence (var), sauf quand on sait pertinemment ce qu'on fait. En effet, les objets sont déjà une référence vers des données sur le tas.

Donc, certes, ce code va "fonctionner", parce qu'il va donner le résultat demandé, mais il est faux point de vue conception.

[sbeu]

Merci pour ces éclairages, mais alors on fait comment finalement? En enlevant le var ça suffit?

Bon, aprés test, ça marche sans le var

Merci

[Gilbert Geyer]

Bonjour,

Pour ma part je procède généralement comme ceci :

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 CreeListeMachin : TStringlist; //<- elle peut se trouver dans une unité quelconque
begin Result:=TStringlist.create;
      Result.Add('tagada');
      Result.Add('abracadrabra');
      ...
      Result.Sort;
end;
 
// Utilisation + libération de la StringList, éventuellement dans une autre unité
procedure TForm1.JutiliseLaStringListClick(Sender : TObject);
var       SL : TStringList; 
begin     SL:=CreeListeMachin;
          MonRichEdit.lines.Assign(SL);
          // et comme j'ai déclaré SL comme une var locale je la free ici
          SL.Free;
end;
// Par contre si je déclare SL en tant que var globale utilisée en divers 
// endroits du code c'est à moi de savoir quand la SL n'a plus de raison 
// d'exister pour la libérer.

... et je fais idem lorsque je crée par exemple un BitMap que je trimballe d'un endroit du code à une autre.

A+