TStringList als Result einer Funktion

[DeddyH]

Wie schon eingangs erwähnt:

Delphi-Quellcode:

procedure GetTiere(const Dest: TStrings);
begin
  Assert(Assigned(Dest));
  Dest.BeginUpdate;
  try
    Dest.Clear;
    Dest.Add('Hund');
    Dest.Add('Katze');
    Dest.Add('Maus');
  finally
    Dest.EndUpdate;
  end;
end;

GetTiere(ListBox1.Items);

[p80286]

Zitat von DeddyH:

Wie schon eingangs erwähnt:
procedure GetTiere(const Dest: TStrings);

Hält Dir zusätzlich die Möglichkeit offen mit Dest.Clear; die übergebene Liste zu löschen oder aber die Daten unten oder sonstwo anzuhängen. Miteiner Funktion bist Du nicht so flexibel.

Gruß
K-H

P.S.
Irgendwann vergisst jeder einmal die Liste wieder frei zu geben.

[Dejan Vu]

Es wurde auch schon 1000,3x gesagt: Funktionen sollten in Delphi eben keine Instanzen erzeugen und liefern, außer es ist auch vom Namen her klar, das da was erzeugt wird. Aber trotzdem würde ich das nie machen. Einfach weil.

[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.

[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;

[sx2008]

Ich würde ganz klar den Vorschlag von DeddyH (Beitrag #16) bevorzugen wenn auch mit kleinen Änderungen.
Das Clear wird weggelassen und der Name beginnt mit Appendxxx.

Delphi-Quellcode:

procedure AppendTiere(const Dest: TStrings);
begin
  Assert(Assigned(Dest));
  Dest.BeginUpdate;
  try
    Dest.Add('Hund');
    Dest.Add('Katze');
    Dest.Add('Maus');
  finally
    Dest.EndUpdate;
  end;
end;

Je nach Anwendungsfall kann man das Clear auch dazunehmen; nur dann beginnt die Prozedure mit Fillxxx.
Wenn ich weiss, dass die Prozedure nicht mehr als 100 Einträge erzeugen wird, dann lasse ich auch BeginUpdate und EndUpdate weg.