精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Object Pascal语言>>Re:如何按照特定字符分割一个大字符串,就象Perl 的 split() 一样!

主题:Re:如何按照特定字符分割一个大字符串,就象Perl 的 split() 一样!
发信人: kingron(金龍)
整理人: kingron(2000-12-13 21:13:07), 站内信件
注意,你必须自己free!
function SplitString(const source,ch:string):tstringlist;
var
 temp:string;
 i:integer;
begin
 result:=tstringlist.Create;
 temp:=source;
 i:=pos(ch,source);
 while i<>0 do
 begin
   result.Add(copy(temp,0,i-1));
   delete(temp,1,i);
   i:=pos(ch,temp);
 end;
 result.Add(temp);
end;
调用:
s:=splitstring('afsdfsdaaa|bbfdsfsdb|ccc','|');
for i:=0 to s.Count-1 do
 b:=b+s.Strings[i]+#13;
showmessage(b);
s.free;


----
██████
█┏━━┓█
█┃之金┃█   去Delphi版看看
█┃印龍┃█
█┗━━┛█
██████

[关闭][返回]