TStrings übergeben

[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