TStringList als Result einer Funktion

[mkinzler]

Kompromiss:

Delphi-Quellcode:

function CreateList( list: TStrings): TStrings;
begin
if not Assigned( list) then
   list := TStringList.Create;
   list.Add( 'a');
   list.Add( 'b');
   list.Add( 'b');
   Result := list;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStrings;
begin
  try
    sl := CreateList( TStringList.Create);
    Memo1.Lines.Assign( sl);
  finally
    sl.Free;
  end;
end;

[Dejan Vu]

Na ja. Formal korrekt. Würdest Du das so schreiben und verwenden?

[mkinzler]

Zitat von Dejan Vu:

Na ja. Formal korrekt. Würdest Du das so schreiben und verwenden?

Nein, aus, unter anderem, den genannten Gründen.

[DeddyH]

Ich bin auch überhaupt kein Freund von Funktionen, die Objektinstanzen zurückgeben, welche innerhalb der Funktion angelegt werden. Ich finde ihn gerade nicht, aber wir hatten hier mal einen Thread, wo ungefähr Folgendes gemacht wurde:

Delphi-Quellcode:

function ReturnsStrings: TStrings;
begin
  Result := TStringlist.Create;
  ...
end;

for i := 0 to ReturnsStrings.Count - 1 do
  Bearbeite(ReturnsStrings[i]);

Klar, mit einer einfachen Zwischenvariablen wäre das Problem vom Tisch, aber hätte man gleich eine Prozedur mit einem TStrings-Parameter daraus gemacht, wäre der obige Code so gar nicht möglich gewesen.

[himitsu]

Wenn ReturnsStrings zu diesem Zeitpunkt immer das Selbe zurück gibt, dann würde der Code zumindestens funktionieren. (bis auf ein paar Speicherlecks und eventuell einer langsameren Verarbeitung, jenachdem wie schnell das ReturnsStrings war)

Unter iOS/Android gibt es diese Speicherlecks nicht.

[DeddyH]

Das find ich aber sehr verwirrend, denn ob man nun schreibt
sl := CreateList(TStringList.Create); oder
sl := CreateList(nil); , tut sich im Endergebnis nichts.

[bernau]

Zitat von mkinzler:

Kompromiss:

Grauselig. Man muss m.E. nach sofort erkennen, daß ein Objekt erzeugt wird. Dazu gekört für mich der Klassenname in Verbindung mit dem Create. Danach mit einer Funktion füllen (Wie der Vorschlag von Dejan Vu)

Delphi-Quellcode:

sl:=TStringlist.create;
FillTiere(sl);

Oder man erkennt aus dem Funktionsnamen direkt, daß eine Klasse erzeugt wird.

Delphi-Quellcode:

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