manipulation tstringlistRésolu

Question

bonjour tout le monde,


J'ai fait une petite fonction qui renvoit un TStringList. Mais je me demande comment je dois m'y prendre pour cr&#233;er et lib&#233;rer l'objet TStringList. voici ma fonction:

function BodyMsgDemarrage: TStringList;
begin
    Result := TStringList.Create;
    Result.Clear;
    Result.Add('Le serveur a &#233;t&#233; d&#233;marr&#233; avec la configuration suivante');
    Result.Add('Port     : ' + FPort);
    Result.Add('Client TimeOut   : ' + FClientTimeout );
    Result.Add('Timeout interval : ' + FTimeoutInterval );
end;

Mon probl&#232;me est donc de savoir o&#249; faire le create et faire le free... pour l'instant je fais donc mon create dans la fonction elle-meme. mais je ne fais jamais de free... 
je suppose que ce n'est pas bon mais je ne sais pas comment m'y prendre ... pourriez vous me donner votre avis sur la question?
merci d'avance

loic

ni69 · Accepted Answer

Tu ne peux pas libérer result, sinon tu retournes un pointeur ne valant plus rien de concret... C'est donc l'appelant qui doit le libérer. Tu ne peux donc pas utiliser de fonction renvoyant une TStringList. Cependant, tu as la possibilité de faire une procédure, qui, plutôt que de renvoyer un résultat, modifie une variable : var MaVarTStringList : TStringList; // La variable qui sera utilisée procedure BodyMsgDemarrage(var TStr : TStringList); begin TStr.Clear; TStr.Add('...'); TStr.Add('...'); end; procedure MaProc; // Procédure demandant la modification de la variable MaVarTStringList begin MaVarTStringList := TStringList.Create; // On crée la variable Try BodyMsgDemarrage(MaVarTStringList); // On modifie la variable {traitement de la variable} Finally MaVarTStringList.Free; // On libère la variable End; end; @+ Bonne Prog' Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! www.ni69.new.fr

loicbernard · Answer

merci de ta r&#233;ponse rapide
oui j'ai pens&#233; &#224; cette solution... 
maisj'aimerais vraiment que ce soit une fonction qui renvoit le tstringlist pour une facilit&#233; d'utilisation et parceque si  ca marche ca doit etre plsu joli...
voici ma procedure qui utilise ma fonction tstringlist... 

procedure maprocedure();
begin
    ...
    Sendmail('mon titre', BodyMsgDemarrage
 )
    //BodyMsgDemarrage.free;

   ...
end

tu dis qu'on ne peut pas utiliser de fonction renvoyant un tstringlist ... je veux bien te croire mais  comme elle est &#233;crite ma fonction fonctionne() ... le seul truc c'est que je veux savoir si je dois "lib&#233;rer ma fonction" apr&#232;s utilisation ou non (ligne en commentaire ... et ca marche aussi quand elle est pas en commentaire)

une autre solution serait ceci mais j'aime pas non plus ... (en fait c'est ma premi&#232;re solution que je trouve la plus pratique(sans le free) mais je crains que la lib&#233;ration ne se fasse pas tout seul)

function BodyMsgDemarrage: TStringList;
begin
    Result.Clear;
    Result.Add('Le serveur a &#233;t&#233; d&#233;marr&#233; avec la configuration suivante');
    Result.Add('Port     : ' + FPort);
    Result.Add('Client TimeOut   : ' + FClientTimeout );
    Result.Add('Timeout interval : ' + FTimeoutInterval );
end;

procedure maprocedure();
begin
    bodymsgdemarrage := tstringlist.create;
    Sendmail('mon titre', BodyMsgDemarrage
 )
    bodymesgdemarrage.free;
end

loicbernard · Answer

tiens j'ai l'impression que je suis tout seul sur ce coup l&#224;
bon ben voil&#224; j'ai fait quelques tests...

je peux d&#233;j&#224; vous dire que 

procedure maprocedure();
begin
    bodymsgdemarrage := tstringlist.create;
    Sendmail('mon titre', BodyMsgDemarrage
 )
    bodymesgdemarrage.free;
end

ca marche pas... la partie de gauche n'est pas affectable...


et en plus


ma premi&#232;re id&#233;e semble  TRES mauvaise...avec ou sans le free :

procedure maprocedure();
begin
    ...
    Sendmail('mon titre', BodyMsgDemarrage
 )
    //BodyMsgDemarrage.free;

   ...
end

j'ai fait une petite boucle qui apelle 20000 fois la fonction bodydemsgdemarrage et en regardant avce le gestionnaire de tache... je vois que l'occupation m&#233;moire de mon processus explose...(meme avec le free!!!) 

d'o&#249; je suis revenu &#224; l'id&#233;e de d&#233;part (celle de ni69)... suis un peu d&#233;cu qu'on puisse pas faire une fonction qui renvoit un objet mais bon je n'en mourrai pas...
si quelqu'un a n&#233;anmoins une bonne id&#233;e sur le sujet n'h&#233;siter pas

quoiqu'il soit merci nico

ni69 · Answer

Je te comprends quand tu dis préférer utiliser une fonction, effectivement, ça fait plus propre dans le code Quand je disais qu'on ne pouvait pas utiliser de fonction renvoyant une TStringList, c'était que je ne voyais aucun moyen de libérer la TStringList renvoyée par la fonction... Mais apparement, je me suis trompé , désolé... J'ai regardé la méthode de japee, effectivement, elle marche, mais cependant, j'émets un doute : je ne suis pas sûr que la StringList renvoyée par la fonction appelée la première fois [ListBox1.Items.Assign(Transfert(Memo1))] soit libérée, car pour effectuer l'appel de la méthode Free, on appelle une deuxième fois la fonction [Transfert(Memo1).Free;], ce qui crée une deuxième StringList, donc au final, on libère la deuxième StringList, mais pas la première... (du moins c'est ce que je crois...) Si quelqu'un pouvait nous éclairer sur les différents détails de ce code et/ou sur la meilleure façon de procéder, j'en serais ravi ! @+ Bonne Prog' Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! www.ni69.new.fr

ni69 · Answer

désolé, j'ai posté en même temps... je regarde ce que tu as écris... @+ Bonne Prog' Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! www.ni69.new.fr

ni69 · Answer

Tes résultats rejoignent donc ce que j'ai dit dans mon post précédent, la variable n'est pas vraiment libérée... Je ne vois aucun autre moyen de procéder que d'utiliser une procédure... @+ Bonne Prog' Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! www.ni69.new.fr

loicbernard · Answer

me voil&#224; bien triste...
en tout cas merci beaucoup 

si jamais quelqu'un avait une autre solution n'h&#233;sitez pas

florenth · Answer

Oui ni69, la r&#233;ponse que m'a donn&#233; Japee est fausse: comme tu le dis,
la fonction est rapell&#233;e une deuxi&#232;me fois et c'est cette deuxi&#232;me
instance qui est lib&#233;r&#233;e, pas la 1ere ... 



Il faut donc passer par un parametre dans une proc&#233;duree ou une fonction de la sorte:

  function  MaFunc: TStringList;

begin

  Result: =TStringList.Create;

  Result.Add('Ma chaine');

end;

 que l'on appelle ainsi:

  procedure  MaProc;

var

  Sl: TStringList;

begin

  Sl: =MaFunc;

  Sl.Free;

end;

 

@ ++ 

Florent



Si tu ne te plantes pas ......
tu ne poussera jamais

japee · Answer

Ouais, Florenth, je crois que je m'&#233;tais un peu plant&#233; sur ce coup l&#224;... 



Arr&#234;tez-moi si je dis une b&#234;tise, mais pourquoi ne pas utiliser une fonction qui retournerait un String ?



function BodyMsgDemarrage: String;

begin

  Result := 'Le serveur a &#233;t&#233; d&#233;marr&#233; avec la configuration suivante' + #13 +

  'Port     : ' + FPort + #13 +

  'Client TimeOut   : ' + FClientTimeout + #13 +

  'Timeout interval : ' + FTimeoutInterval;

end;




Ainsi, pas besoin de cr&#233;er, ni de lib&#233;rer quoi que ce soit.

Et on a une fonction qui retourne un r&#233;sultat bien propre... 



Bonne prog' 



japee

loicbernard · Answer

merci du d&#233;vouement de chacun...
florent : 
oui mais mon probl&#232;me c'est ma fonction sendmail(mybodymessage) remplit la propri&#233;t&#233; body(c'est un TStrings) du composants IdMessage(composant indy) ...et je ne vois pas comment appliquer ta solution dans ce cas l&#224;...


japee: 
le probl&#232;me est que comme je l'expliquais ci dessus au final je dois remplir un TStrings...

loicbernard · Answer

zut la fin du message a encore &#233;t&#233; coup&#233;e...

je disais juste : quoiqu'il en soit merci &#224; tous 

lolo

ni69 · Answer

lol japee , c'est tellement simple qu'on y pense même pas !!! loicbernard >> une variable TStrings à une propriété 'Text', et c'est là qu'intervient la fonction de japee par exemple, pour remplir une variable TStrings nommé Lignes avec le result de la fonction (une variable string), tu peux faire : Lignes.Text := BodyMsgDemarrage; @+ Bonne Prog' Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! www.ni69.new.fr

loicbernard · Answer

magnifique... ben voil&#224; c'est (presque )ca que je voulais ;-) 

je vous remercie (oui je sais que je l'ai d&#233;j&#224; 5 fois mais j'insiste ) de votre aide...

lolo

florenth · Answer

Lo&#239;c > C'&#233;tait uste un exemple pour te montrer que c'est possible.

Nico > A ce compte l&#224;, ma fonction convient aussi (de m&#234;me qu'une
procedure avec param variable) puisqu'il faut quand m&#234;me d&#233;clarer une
variable pour s'en servir. Et en plus, il faut que l'appelant la cr&#233;e
et la lib&#232;re ...



Japee > Mais pourquoi pas ? On s'embette vraiment pour rien ... 

Mais il faut savoir que, m&#234;me si c'est transparant, que Delphi, lui, alloue et lib&#232;re la memoire associ&#233;e &#224; un type string.



C'est pas grave si tu t'es tromp&#233; en me r&#233;pondant sur l'autre message. Parce que
Si tu ne te plantes pas ......
tu ne poussera jamais  (eh oui)



Et voila !!



@ ++

Florent

Manipulation tstringlist

14 réponses

Votre réponse

Discussions similaires