下面这个是我在网上找到修改后了的，个人感觉算法不错，所以就贴了上来。
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;
本文引用通告地址： http://blog.csdn.net/mahuzi/services/trackbacks/502563.ASPx
(e129)
上一篇： Delphi使用VB编写的ActiveX控件全攻略 （1）
下一篇： DBExpress组件连接远程Mysql数据库
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
