如何从函数中返回多个字符串？

[jianping0]

函数：
function aaa:Tstrings;
begin
result[0]:='aaa';
result[1]:='bbb';
end;
调用：
var
str;Tstrings;
begin
str:=aaa;
end;
提示错误。
请问应如何写？

[kylix2001]

Tstrings是一个类。
所以你使用前要先Create一个实例。再掉用Add方法。详见Delphi帮助

[c_hk]

下面我的测试：
function TForm1.test():TStrings;
begin
result:=TStringlist.Create;
result.Add('a');
result.Add('b');
result.Add('c');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s1:TStrings;
begin
s1:=test();
showmessage(s1.Strings[0]+','+s1.Strings[1]+','+s1.Strings[2]);
end;

[yukuang]

function aaa(var L:TStringList)
begin
L.Add('aaa');
L.Add('bbb');
end;


var L:TStringList
begin
L:=TStringList.Create;
aaa(L);
end;

[kylix2001]

ben