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。添加(来源)；

结束；