Delphi中优秀的字符串分割函数

页面导航:首页 > 软件编程 > Delphi > Delphi中优秀的字符串分割函数

Delphi中优秀的字符串分割函数

来源: 作者: 时间:2016-02-05 11:47 【

DELPHI没有自己的字符串分割函数,所以只能程序员自己写了,网上搜了好多但是真正好用的没有几个, 下面这个是我在网上找到修改后了的,个人感觉算法不错,所以就贴了上来。

DELPHI没有自己的字符串分割函数,所以只能程序员自己写了,网上搜了好多但是真正好用的没有几个,

下面这个是我在网上找到修改后了的,个人感觉算法不错,所以就贴了上来。

 

function 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;
            Result := StringList;
            StringList.Add(source);
            end;
Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <