TStringlist von function() zurückgeben - nicht möglich?

[JanWe]

ja, ich habe ja am Ende der function versucht result <-- x zuzuweisen,

result.assign(x);

aber dann crashte es bei der Rückkehr zum Button.

Delphi-Quellcode:

function sende (sa: TStringlist; sb: TStringlist): TStringlist;
var
x : Tstringlist;
begin
x := Tstringlist.create;
x.Clear;
x.add( sa[0] + Sb[0] );


{ welches der folgenden beiden? }
// result := (z);  geht ja auch nicht, oder? wird ja dann nur als String zugwiesen

result.Assign(x); // <-- knallt aktuell hier. Keine Ahnung, warum
  x.free;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
u : Tstringlist;
v : Tstringlist;
begin
 u := Tstringlist.create;
 v := Tstringlist.create;

 u.add('Hafen');
 u.add('Donau');

 v.add('schiffahrt');  v.add('rundfahrt');


 v.Assign( sende (u, v) );

 u.free;
 v.free;
end; // ende Button