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

6leaf 2003-10-21 09:32:55

String := 'aa,ere,bb,aaaa,ooo';
Delphi里面有没有相关的函数巴上面这个字符串拆分成数组
如：
a[o]=aa
a[1]=are
a[2]=aaaa
a[3]=ooo

Java和C/C++里面都有对应的函数可以利用，不知道Delphi里面有没有？？
难道要自己遍历拆分吗?

...全文

231 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

YYQQ 2003-10-22

打赏
举报

这样有规则的字串, 自己串换也很容易的呀

hnhb 2003-10-21

打赏
举报

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;

saien 2003-10-21

打赏
举报

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

hiflower 2003-10-21

打赏
举报

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;