Delphi字符串分割函数

最新推荐文章于 2020-12-24 10:11:53 发布

转载最新推荐文章于 2020-12-24 10:11:53 发布 · 1.6k 阅读

文章标签：

#delphi #string #byte

Delphi开发专栏收录该内容

27 篇文章

订阅专栏

本文介绍了一个实用的Delphi函数，用于将字符串按照指定的分隔符进行分割，并返回一个字符串列表。该函数通过循环定位分隔符位置，逐个分割字符串并添加到列表中。

一个Delpih常用到的分割写符串的函数..

代码如下：

function Tmainfr.SplitString(Source,Deli:string):TStringList;stdcall;  //拆分字符串函数
var
EndOfCurrentString:byte;
StringList:TStringList;
begin
    StringList:=TStringList.Create;
    while Pos(Deli,Source)>0 do         //当存在拆分符号时
    begin
      EndOfCurrentString:=Pos(Deli,Source);         //取分隔符的位置
      StringList.add(Copy(Source,1,EndOfCurrentString-1));    //添加项目
      Source:=Copy(Source,EndOfCurrentString+length(Deli),length(Source)-EndOfCurrentString);  //减去已添加项和分隔符
    end;
    StringList.Add(source);   //如果不存在分隔符时，直接作为项目添加
    Result:=StringList;       //设置返回类型
end;

在网上找的，挺好用，加了注释与大家一起分享~~~~