关于字符串处理解决方法

关于字符串处理
 
我现在有一个字符串str是由n个小的字符串组合成的 ,这些小的字串长度是相等的，用逗号隔开的 比如:
  str=str1,str2,str3,str4,str5,str6,.......strn...
  我现在想把这些小的str1 str2 str3 str4 ....取值到listbox里面
  str1
  str2
  str3
  str4
  .
  .
  .
  .

小弟处整delphi哈，请大侠们帮帮忙


[解决办法]

Delphi(Pascal) code

var  sl: TStringList;begin    sl := TStringList.Create;  try    sl.Delimiter := ',';    sl.DelimitedText := str;    ListBox1.Items.Assign(sl);  finally    sl.Free;  end;
[解决办法]
Delphi(Pascal) code
vars1:string;begin  s1:='123,abc,fff,aaa,eee';  ListBox1.Clear;  ListBox1.Items.Delimiter:=',';  ListBox1.Items.DelimitedText:=s1;end;