哪个函数可以读取字符串？？？？

Question

比方说memo1.Text的内容是：csdn,论坛,文章内容
有什么方法可以读取到memo1.text的内容以","为结束符，然后继续往下读。

Answer 1

copy(memo1.text,1,pos(',',memo1.text)-1);
delete(memo1.text,1,pos(',',memo1.text));

Answer 2

符号分隔格式统一的话可以这样memo1.lines.delimiter:=',';
memo1.lines.delimitedText:=memo1.text;

Answer 3

var
  L: TStrings;
begin
  L := TStringList.Create;
  L.CommaText := memo1.Text;
  ShowMessage(L.Text);
  L.Free
end;

Answer 4

s1:=trim(memo1.Text);
while Pos('，',s1)<>0 do
  begin   str_:=Trim(Copy(s1,1,Pos('，',s1)-1));
   s1:=Copy(s1,Pos('，',s1)+1,Length(s1)-Pos('，',s1));
  end;

Answer 5

VB Split 函数在 Delphi 中的不完全实现

Answer 6

memo1.lines.delimiter:=',';
memo1.lines.delimitedText:=memo1.Lines[i];