function mit TStringList Result

**bundy**

hi DP ,

ich hab mal ne Frage

muss ich wenn ich einen Function habe die als Result eine TStringList hat, diesen Result auch wieder freigeben ?

Delphi-Quellcode:

			function TForm1.catchItemXML(ItemNr: string): TstringList;

var

   req : IXMLHTTPRequest;

   XMLStream:TMemoryStream;

   XMLStringData:TStringList;

    EdtUrlText:string;

begin

  try

   XMLStream:=TMemoryStream.Create;

   XMLStringData:=TStringList.Create;

   Result:=TStringList.Create;                      <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  Diesen DA

   req := CoXMLHTTP40.Create;  // Interface erzeugen

   // in EdtURL steht die URL, die heruntergeladen werden soll

   EdtUrlText:='http://eu.wowarmory.com/item-info.xml?i='+ItemNr ;

   req.open('GET', EdtUrlText, False, {Username} EmptyParam, {Passwort} EmptyParam);

   // eigenen Request-Header setzen

   req.setRequestHeader('ApplicationID', 'Test V1.0');

   req.send(EmptyParam);  // Anfrage an Server senden und Antwort abwarten

   // Nutzdaten anzeigen

   XMLStringData.Text := req.responseText;

   XMLStringData.Text:= StringReplace(req.responseText,'UTF-8','ISO-8859-1',[rfReplaceAll]);

   XMLStringData.SaveToStream(XMLStream);

   XMLStream.Seek(0,soBeginning);

   Result.LoadFromStream(XMLStream);

  finally

    XMLStream.Free;

    XMLStringData.Free;

                   <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Muss der da .free ? oder habe ich sonst keinen result ?

  end;

end;

lg

bundy

function mit TStringList Result

function mit TStringList Result

Forumregeln