在线！ 如何分别取得EDIT里用逗号分隔开的字符！！

Question

在线！ 如何分别取得EDIT里用逗号分隔开的字符！！

Answer 1

Str:=Edit1.Text;
Result[Count]储存结果，Count为元素个数。
i:=0;
while Pos(',',Str)<>0 do
begin
  Result[i]:=Copy(Str,1,Pos(','Str)-1);
  Str:=Copy(Str,Pos(',',Str)+1,Length(Str)-Pos(',',Str));
  Inc(i);
end;
if Str<>'' then
  Result[i]:=Str;

Answer 2

晚来了，那我就出个更简单的方法吧。
把edit.Text的值赋给一个TStringList对象的CommaText属性，然后可以用Strings[]取出每个值了。