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