45fan.com - 路饭网

搜索: 您的位置主页 > 网络频道 > 阅读资讯:delphi中的split函数介绍

delphi中的split函数介绍

2016-09-03 08:09:53 来源:www.45fan.com 【

delphi中的split函数介绍

//根据字符串,拆分字符串,相当于vb中的split函数
function SplitString(const Source,ch:string):TStringList;
var
temp:String;
i:Integer;
begin
Result:=TStringList.Create;
//如果是空自符串则返回空列表
if Source=''
then exit;
temp:=Source;
i:=pos(ch,Source);
while i<>0 do
begin
Result.add(copy(temp,0,i-1));
Delete(temp,1,i);
i:=pos(ch,temp);
end;
Result.add(temp);
end;

www.sinoprise.com

 

本文地址:http://www.45fan.com/a/question/71553.html
Tags: 中的 Delphi Split
编辑:路饭网
关于我们 | 联系我们 | 友情链接 | 网站地图 | Sitemap | App | 返回顶部