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