TStringList als Result einer Funktion

[Captnemo]

Zitat von himitsu:

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

Kannst du mir auch sagen warum das sich besser macht?

[TheFrog]

Werde in Zukunft auf Dein Profil achten

[himitsu]

Ihr dürft im DP-Projekt gern für meinen Feature-Request voten. Ich hatte mir mal gewünscht, daß entweder die Profilangabe als Default erstmal vorausgewählt ist, oder daß diese Angabe per Vorauswahl leer ist.

Typkompatibilität, vorallem wenn man diese StringListe an eine andere Funktion übergeben will.

Stell dir mal vor jemand hätte das Assign als procedure Assign(Value: TStringList); deklariert und schön könnte man nur noch TStringLists und nix Anderes mehr übergeben. Darum am Besten gleich durchgängig den kleinsten gemeinsamen Nenner nutzen. (siehe TMemo.Lines ... da ist z.B. eigentlich ein TMemoStrings drin)
Bei deinem Result kommt es ja nur auf die Textinhalte an und es ist vollkommen egal wo die gespeichert sind und für den Zugriff daraus reichen die Schnittstellen des TStrings auch vollkommen aus.

[Captnemo]

Zitat von himitsu:

Ihr dürft im DP-Projekt gern für meinen Feature-Request voten. Ich hatte mir mal gewünscht, daß entweder die Profilangabe als Default erstmal vorausgewählt ist, oder daß diese Angabe per Vorauswahl leer ist.

Mach ich gleich mal

Zitat von himitsu:

Typkompatibilität, vorallem wenn man diese StringListe an eine andere Funktion übergeben will.

Herzlichen Dank.

[Perlsau]

Delphi-Quellcode:

function GetTiere: String;
Var
  Liste: TStrings;
begin
  Liste:=TStringList.create;
  Try
    Liste.Add('Hund');
    Liste.Add('Katze');
    Liste.Add('Maus');
    Result := Liste.Text;
  Finally
    Liste.Free;
  End;
end;

// Aufruf:
Listbox1.Items.Text := GetTiere;

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