Delphi中优秀的字符串分割函数
Delphi没有自己的字符串分段功能,只能由程序员自己编写。网上有很多搜索,但真正有用的很少。
这是我在网上找到的修改过的。我个人觉得算法不错,就贴出来了。
函数SplitString(Source,Deli:string):TStringList;stdcall
定义变量
EndOfCurrentString:byte;
string list:TStringList;
开始
StringList:=TStringList。创建;
而Pos(Deli,Source)>0 do
开始
EndOfCurrentString := Pos(Deli,Source);
StringList.add(Copy(Source,1,EndOfCurrentString-1));
Source := Copy(Source,EndOfCurrentString + length(Deli),length(Source)-EndOfCurrentString);
结束;
结果:= StringList
StringList。添加(来源);
结束;
位律师回复
0条评论