stringlist 中 commatext的用法

Question

我有一串用逗号间隔的字符串，想把他们分别取出来，我知道有个commatext用法，不过不知道如何使用，请指教

Answer 1

自己写一个函数
很简单的
var
  str,str1: string;
begin
  I:= pos(',',str);
  while(i<>0) do
  begin
    str1 := copy(str,0,i+1);
    strlist.add(str1);
    delete(str,1,i);
  end;
  strlist.add(str);
end;
大字是这样的，稍微调试一下就可以了
copy(0,i+1)

Answer 2

当然，着只是字符串中存在一个分割符的取法，我需要的是很多的分割符存在的字符串，我知道stringlist的commatext属性有这个功能，不知怎么用法。

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  dd:tstringlist;begin
  dd:=tstringlist.Create ;
  dd.CommaText :='aasdf,asdfasdf,asdfasdf,asdf';
  memo1.Lines.Assign(dd);
  //dd.Free ;
end;