delphi中有没有这样的string处理函数

Question

如下字符串
str:='aa,bb,cc,dd,ee,'split(str,',')(0)='aa'
split(str,',')(1)='bb'
...........如上所示,多谢

Answer 1

procedure SplitString(const source,ch:string);
  var
    temp:string;
  begin
    temp:=source;
    i:=pos(ch,source);
    while i<>0 do
    begin
      slModeId.Add(copy(temp,0,i-1));
      delete(temp,1,i);
      i:=pos(ch,temp);
    end;
    slModeId.Add(temp);
  end;
//slModeId是公用的TStringList,这个函数将字符拆开去掉分隔符号，然后防到slModeId里

Answer 2

var
  i: integer;
  tmp: string;
begin
i := pos(',',str);
    while i > 0 do
    begin
      Tmp := copy(Str,1,i - 1);
      listbox.items.Add(Tmp);
      Str := copy(Str,i + 1,length(Str)-i);
      i := pos(',',Str);
    end;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  str:TStringList;
  s:string;
  i,j:integer;
begin
  s:='aa,bb,cc';
  str:=TStringList.Create;
  str.Delimiter:=',';
  str.DelimitedText:=s;
  i:=str.Count;
  for j:=0 to i-1 do
  begin
    showmessage(str.Strings[j]);
  end;
end;