Delphi的Split函数

最新推荐文章于 2024-08-07 19:10:01 发布

newweapon

最新推荐文章于 2024-08-07 19:10:01 发布

阅读量863

点赞数

分类专栏： delphi 文章标签： delphi string delete function 编程

本文链接：https://blog.csdn.net/newweapon/article/details/2572598

版权

delphi 专栏收录该内容

33 篇文章 0 订阅

订阅专栏

因为Delphi中并没有自带的分拆字符串的函数，但实际编程中又经常会用到。在网上找了一段代码，在使用中发现有Bug，没有考虑到分拆符可能不只一个字符的情况。下面是修改过后的代码（红色部分是修改的代码）：

function SplitStr(const Source, Splitter: String):TStringList;

var

  temp: String;

  i: Integer;

begin

  Result := TStringList.Create;

  //如果是空自符串则返回空列表

  if Source='' then

    Exit;

  temp := Source;

  i := pos(Splitter, Source);

  while i <> 0 do

  begin

     Result.add(copy(temp, 0, i-1));

     Delete(temp, 1, i - 1 + Length(Splitter));

     i:=pos(Splitter, temp);

  end;

  Result.add(temp);

end;