splitStr分割字符串函数

最新推荐文章于 2021-07-03 01:24:20 发布

1361976860

最新推荐文章于 2021-07-03 01:24:20 发布

阅读量275

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/hejoy91/archive/2013/05/29/3105913.html

把source字符串按ch子串进行分割保存至stringlist中

function splitStr(ch:string;source:string):TStringList;
var i:Integer;
begin
  Result:=TStringList.Create;
  if (ch<>'')and (source<>'') then
  begin
    while pos(ch,source)>0 do
    begin
      i:=pos(ch,source);
      Result.Add(Copy(source,1,i-1));
      source:=Copy(source,i+ Length(ch),Length(source));
    end;
    Result.Add(source);
  end;
end;