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

Question

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

Answer 1

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

Answer 2

下面我的测试：
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;