诸暨信息网
游戏
当前位置:首页 > 游戏

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

发布时间:2019-09-13 20:21:31 编辑:笔名

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

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

functionSplitString(Source,Deli:string):TStringList;stdcall;

var

EndOfCurrentString:byte;

StringList:TStringList;

begin

StringList:=TStringList.Create;

whilePos(Deli,Source)>0do

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;查看本文来源

薏芽健脾凝胶治疗便秘吗
宝宝健脾吃什么
精神焦虑抑郁消化不良肠胃痛
小孩高烧不退怎么办