TStringList als Result einer Funktion

[Captnemo]

Hi,

ist ne blöde Frage, ich weiß, aber ich stell sie mal trotzdem.
Ich brauch eine Funktion, die mir eine StringList zurückliefert.

Delphi-Quellcode:

function GetTiere: TStringList;
begin
  Result:=TStringList.create;
  Result.Add('Hund');
  Result.Add('Katze');
  Result.Add('Maus');
end;

Der Aufruf z.B. soll so aussehen:

Listbox1.Items.Assign(GetTiere); Also ich will per Assign aus einer Funktion eine Listbox füllen.

Wo würde man aber Result wieder freigeben? Theoretisch kann die Funktion GetTiere ja mehrmals aufgerufen werden, und jedes Mal würde eine neue StringList erstellt, die dann im Speicher rumliegt.
In der Funktion selber freigeben würde ja logischerweise nicht gehen.

[Sherlock]

Meine naive Meinung: Wers erzeugt gibt auch wieder frei. In diesem Fall ist der Aufrufer der Funktion der Erzeuger.

Sherlock

[TheFrog]

Wir haben in unserem Projekt ein Interface IMyStringList deklariert. Die implementierende Klasse ist von TInterfacedObject abgeleitet und dient als Wrapper für eine TStringList.

Damit könnte dein Aufruf ungefähr so aussehen:

ListBox1.Items.Assign(GetTiere.Strings);

Damit wird durch das ReferenceCounting die Instanz wieder freigegeben, wenn diese nicht mehr gebraucht wird.

Vielleicht hilft Dir das ja weiter.

[Dejan Vu]

Wenn man interfaces benutzt, sollte man nur interfaces nehmen und keinen Mischmasch. Denn wie erkennt man, wo man etwas manuell freigeben muss und wo nicht? Also nichts gegen die Lösung, aber als isolierte Lösung hier würde ich das nicht machen.

Die eigentliche Frage ist ja (wenn man Sherlock's law beachtet) Wie erkennt man (wie im Beispiel des TE), das die Funktion eine Liste liefert, die man freigeben muss? Wer ist hier wirklich der Ersteller?

Ich würde das so lösen, das die Funktion eine Methode ist, die in eine ihr übergebene Liste die Tiernamen anhängt, und eben keine neue Instanz liefert.

Delphi-Quellcode:

Procedure FillTiere (aDestination : TStringList);
begin
  aDestination.Add('Hund');
  aDestination.Add('Katze');
  aDestination.Add('Maus');
end;

Dann kann man sie so aufrufen: FillTiere(ListBox.Items) oder so:

Delphi-Quellcode:

  tmp := TStringList.Create;
  Try
    FillTiere (tmp);
    ListBox.Items.Assign(tmp);
  finally
    tmp.Free
  end

Somit ist klar, wer Ersteller ist.

[Bernhard Geyer]

Was spricht dagegen das als:

GetTiere(Listbox1.Items) zu realiseren

Zitat von TheFrog:

Wir haben in unserem Projekt ein Interface IMyStringList deklariert.

Wieso nicht die Standardklasse verwendet: docwiki.embarcadero.com/Libraries/XE5/de/System.Classes.IStringsAdapter

[Captnemo]

Zitat von Bernhard Geyer:

Was spricht dagegen das als:

GetTiere(Listbox1.Items) zu realiseren

Zitat von TheFrog:

Wir haben in unserem Projekt ein Interface IMyStringList deklariert.

Wieso nicht die Standardklasse verwendet: docwiki.embarcadero.com/Libraries/XE5/de/System.Classes.IStringsAdapter

Hmmm....absolut nichts spricht dagegen. Aus irgendeinem nicht nachvollziehbaren Grund wollte ich das umgekehrt machen Frag mich nicht warum.

[TheFrog]

Ich dachte er hat als Delphi - Version die 5 angegeben.

Ist damit XE5 gemeint, dann hast Du natürlich recht!

[Bernhard Geyer]

Zitat von Captnemo:

Hmmm....absolut nichts spricht dagegen. Aus irgendeinem nicht nachvollziehbaren Grund wollte ich das umgekehrt machen Frag mich nicht warum.

Zu viel C#/Java programmiert.
Bei einer Programmiersprache mit Garbage-Collector würde ich das so machen.
Da wird ja alles korrekt aufgeräumt wenn es nicht mehr verwendet würde.

[himitsu]

Man sollte aber im Namen/Dokumentation erwähnen, daß ob die Funktion jedesmal eine TStringList erzeugt, zurückgibt und nicht wieder freigibt
oder ob sich die Funktion die Instanzen merkt und "irgendwann" freigibt
oder ob es eine interne Instanz ist, welche mit der Komponente freigegeben wird. (mehrfacher aufruf und gleichzeitige Auswertungen der Liste nicht möglich)
oder ob der Aufrufer für die Freigabe verantwortlich ist.

Zitat von Sherlock:

Meine naive Meinung: Wers erzeugt gibt auch wieder frei. In diesem Fall ist der Aufrufer der Funktion der Erzeuger.

Erstellt hat die Liste aber die Funktion und nicht der Aufrufer.
Außer man sagt, daß die Funktion eine Liste erstellt und der Aufrufer das dann freigeben soll.

Ich gebe ja auch nicht jedesmal die Liste frei, wenn ich auf Memo.Lines (intern Memo.GetLines) zugreife.


PS: Auch wenn du intern eine TStringList erzeugst ... Es macht sich dennoch oft besser, wenn das Result-Typ ein TStrings ist.

[Captnemo]

Zitat von TheFrog:

Ich dachte er hat als Delphi - Version die 5 angegeben.

Weil ich das blöderweise IMMER vergesse
(Warum nimmt der auch nicht das, was ich meinem Profil eingestellt habe)

Habs korrigiert.