☆★字符串如何按照某个字符拆分成数组？

Question

String := 'aa,ere,bb,aaaa,ooo';
Delphi里面有没有相关的函数巴上面这个字符串拆分成数组
如：
a[o]=aa
a[1]=are
a[2]=aaaa
a[3]=oooJava和C/C++里面都有对应的函数可以利用，不知道Delphi里面有没有？？
难道要自己遍历拆分吗?

Answer 1

var
  AStringList:TStringList;
  i:Integer;AStringList:=TStringList.Create;
AStringList.Text:=StringReplace(AString,',',#$0D#$0A,[rfReplaceAll];
for i:=0 to AStringList.Coutn-1 do
  a[i]:=AStringList.Strings[i];
AStringList.Free;

Answer 2

delphi中没有现成的函数，需自已写代码!

Answer 3

var
  Para:Array of string;
  n,i:Integer;
  PocketText :String;
begin
    PocketText:='aa,ere,bb,aaaa,ooo,';
    SetLength(para,1);
    n:=0;
    while pos(',',PocketText)>0 do
    begin
        i:=pos(',',PocketText);
        para[n]:=copy(PocketText,0,i-1);
        PocketText:=copy(PocketText,i+1,Length(PocketText)-i);
        n:=n+1;
        SetLength(para,n+1);
    end;
end;