TStringList freigeben?

[DeddyH]

Sehr richtig, Funktionen, die Objekte erzeugen und zurückgeben sind nicht sonderlich elegant (dazu gibt es auch einige Threads hier). IMO ist die erste Lösung (TStrings als Parameter) wann immer möglich vorzuziehen.

[edit] Eine Freigabe des Rückgabewertes könnte so aussehen:

Delphi-Quellcode:

var l: TStrings;
begin
  l := Funktion;
  try
    MachWasMitL;
  finally
    l.Free;
  end;
end;

[/edit]

[Mysterio08]

Zitat von DeddyH:

IMO ist die erste Lösung (TStrings als Parameter) wann immer möglich vorzuziehen.

[edit] Eine Freigabe des Rückgabewertes könnte so aussehen:

Delphi-Quellcode:

var l: TStrings;
begin
  l := Funktion;
  try
    MachWasMitL;
  finally
    l.Free;
  end;
end;

[/edit]

Das Interessante ist doch jetzt, was hinter "Funktion" steckt, oder nicht? Denn TStrings muss ja analog wie TStringList erstellt und auch wieder freigegeben werden.

[DeddyH]

"Funktion" wäre dann so etwas:

Delphi-Quellcode:

function funktion: TStrings;
begin
  Result := TStringlist.Create;
  try
    Result.Add('Eins');
    Result.Add('Zwei');
  except
    FreeAndNil(Result);
    raise;
  end;
end;

[Mysterio08]

Aber das funktioniert doch auch mit TStringList so. Oder welchen Vorteil hat TStrings?

[Mysterio08]

Generell weiß ich natürlich, wie man Objekte erstellt und wieder freigibt. Nur nicht, wenn der Rückgabewert ein Objekt, wie z.B. TStringList, ist.

Zitat von DeddyH:

Delphi-Quellcode:

function funktion: TStrings;
begin
  Result := TStringlist.Create;
  try
    Result.Add('Eins');
    Result.Add('Zwei');
  except
    FreeAndNil(Result);
    raise;
  end;
end;

Ich bin mal mit dem Compiler durchgesprungen: Der Except-Block wird nicht durchlaufen und somit das Objekt auch nicht freigegeben. Oder habe ich noch nicht richtig verstanden, was "raise" macht?

[Christian Seehase]

Moin Mysterio,

Zitat von Mysterio08:

Generell weiß ich natürlich, wie man Objekte erstellt und wieder freigibt. Nur nicht, wenn der Rückgabewert ein Objekt, wie z.B. TStringList, ist.

Genau deshalb sollte man es vermeiden ein Objekt als Rückgabewert einer Funktion zu verwenden.
Es wird zu unübersichtlich. Man kann sich dabei zu leicht Speicherlecks, oder Exceptions auf Grund an falscher Stelle freigegebener Objekte einhandeln.

Eine Ausnahme fällt mir dazu aber auch noch ein:
Wenn es sich um eine Methode einer Klasse handelt, die die zurückgegebenen Objekte selber verwaltet, z. B. TListView.
TListView verwaltet die Items selber, so dass TListItem als Rückgabewert von TListView.Items.Add kein Problem darstellt.

Zitat von Mysterio08:

Zitat von DeddyH:

Delphi-Quellcode:

function funktion: TStrings;
begin
  Result := TStringlist.Create;
  try
    Result.Add('Eins');
    Result.Add('Zwei');
  except
    FreeAndNil(Result);
    raise;
  end;
end;

Oder habe ich noch nicht richtig verstanden, was "raise" macht?

Raise ruft die Exception auf Grund derer in den except-Zweig verzweigt wurde noch einmal auf.
Erst wird die Exception abgefangen (try/except), dann das Objekt freigegeben (FreeAndNil(Result)) und dann der Grund für den Fehler erneut angezeigt (raise).