TStrings übergeben

[jjep]

Hallo zusammen

In meinem Programm möchte mit einer Funktion TStrings zurückgeben, wie folg:

Delphi-Quellcode:

function TForm1.getStrings:Tstrings;
var Liste: TStrings;
begin
Liste := TStringlist.Create;
Try
  Liste.Add('erste Zeile');
  Liste.Add('zweite Zeile');
  Liste.Add('dritte Zeile');
  result := TStringlist.create;
  result.AddStrings(Liste);
finally
  Liste.Free;
end;
end;

Ist es notwendig "result" zu kreiren? logisch ohne gehts nicht, aber gäbes nicht eine ander möglichkeit die Strings zu übergeben?

[Luckie]

Übergib eine StringListe als Parameter.

[Phoenix]

Du könntest die TstringList ist der aufrufenden Methode erzeugen und als var - Parameter in die Methode reingeben.

Alternativ kannst Du auch einfach ein Array von Strings erzeugen und zurückgeben.

[Tyrael Y.]

Du könntest deinen TString ausserhalb erzeugen in die Methode reingeben dort verarbeiten und
könntest danach damit weiterarbeiten.

Delphi-Quellcode:

function TForm1.getStrings(Liste:Tstrings);
begin
  Liste.Add('erste Zeile');
  Liste.Add('zweite Zeile');
  Liste.Add('dritte Zeile');
end;

Edit:
Es muss nicht als var-Parameter reingegeben werden, da es eh ein Call-By-Reference aufruf ist.

[jjep]

Ja logisch
danke vielmals an alle

[Lord Shadow]

Oder ganz anders ^^ wenn ich dein Quelltext von oben mal aufgreife:

Delphi-Quellcode:

function TForm1.getStrings:Tstrings;
var Liste: TStrings;
begin
Liste := TStringlist.Create;
Try
  Liste.Add('erste Zeile');
  Liste.Add('zweite Zeile');
  Liste.Add('dritte Zeile');
  result:=Liste;
finally
  Liste.Free;
end;
end;

Du must result nicht erst Initilisieren und TStringList ist glaub ich auch kompatibel mit TStrings damit einfach nur result:=Liste und fertig.

Mfg Shadow

[jjep]

Dies ist bei mir leider nicht gegangen.

[mkinzler]

Kann so auch nicht gehen, da du die Liste vor der Rückgabe wieder zerstörst!

[marabu]

Hallo,

es geht auch ohne Zwischenvariable. Wenn eine Funktion ein Objekt liefert, dann hat sich ein Namenspräfix "Create" eingebürgert:

Delphi-Quellcode:

function CreateStrings: TStrings;
begin
  Result := TStringlist.Create;
  with Result do
  begin
    Add('erste Zeile');
    Add('zweite Zeile');
    Add('dritte Zeile');
  end;
end;

Wenn es keine zwingenden Gründe dafür gibt, dann sollte man diese Funktion nicht als Methode der Form entwerfen.

Grüße vom marabu