如何直接把string对象转成TStrings对象？

Question

如何直接把string对象转成TStrings对象？

Answer 1

建立 tstrings 对象,拷贝 string 的值.

Answer 2

strlist : TStringList;
str : AnsiString;
begin
strlist:=TStringList.Create;
str:='哟儿丝缀’;
strlist.Text:=str;
.....
strlist.Free;
end;

Answer 3

function StringToTStrings(const Text: string): TStrings
begin
  result.Text := Text;
end;
或者
procedure StringToStrings(const Text: string; var AStrings: TStrings)
begin
  AStrings.Text := Text;
end;不知是否是lz需要的呢！