字符串分隔函数代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】字符串分隔函数

作者:秀清 / 发布于2015/5/13/ 796


	procedure SeparateTerms2(s:string;Separator:string;var rs:TStringList);
	var
	 AStr: string;
	 idx: Integer;
	 ASubStr: string;
	begin
	 AStr := Trim(s);
	 while Pos(Separator, AStr) > 0 do
	 begin
	 idx := Pos(Separator, AStr);
	 ASubStr := Copy(AStr, 1, idx - 1);
	 rs.Add(ASubStr);
	 AStr := Copy(AStr, idx + 1, Length(AStr));
	 end;
	if AStr+'a' <> 'a' then rs.Add(AStr); //如果存在剩余的字符串，则将其存入字符串列表中
	end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　字符串　　分隔　

同语言下

.多边形面积
.限定软件使用时间
.获取磁盘空间大小
.窗口文字淡入淡出渐变效果
.创建开机启动项
.检测并枚举系统安装的打印机
.实现保存和读取图片
.字符串分隔函数
.将BMP格式图形转化为JPG格式
.解析FTP地址

可能有用的

.SQL查询多列合并成一行用逗号隔开
.一行一行读取txt的内容
.C#动态修改文件夹名称(FSO实现，不移动文件)
.c# 移动文件或文件夹
.c#图片添加水印
.Java PDF转换成图片并输出给前台展示
.网站后台修改图片尺寸代码
.处理大图片在缩略图时的展示
.实现对图片上传的接收
.判断用户输入的是否为IP地址

秀清贡献的其它代码(25)

.把网站的html文件中的http替换成https
.验证手机号、密码、短信验证码
.将一个字符串格式化为每间隔指定长度插入一个分隔符，
.hive开启简单模式不启用mr
.区间分组统计
.FtpUtil 工具类使用
.FileUtil,文件操作工具类
.实现类似微信网页版在可编辑的div中粘贴内容时过滤剪
.使用多个属性来进行过滤
.检测邮箱地址是否合法