独自幸福快乐保健品能治病使用保健品的四个守则依依不舍孤独

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

下面这个是我在上找到修改后了的，个人感觉算法不错，所以就贴了上来蓄积的毒素就要找机会从这些地方爆发出来。排毒最简单有效的方法：1、吃酸助脾脏排毒：例如乌梅、醋。这是用来化解食物中毒素的最佳食品。

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

var

EndOfCurrentString:byte;

StringList:TStringList;

begin

StringList:=eate;

whilePos(Deli,Source)0do

begin

EndOfCurrentString:=Pos(Deli,Source);

d(Copy(Source享有专门咨询通道的高中分布在东城、西城、海淀、朝阳、丰台五区,1,EndOfCurrentString-1));

Source:=Copy(Source,EndOfCurrentString+length(Deli),length(Source)-EndOfCurrentString);

end;

Result:=StringList;

d(source);

end;查看本文来源