delphi字符串分隔函数用法实例
更新时间：2014年12月15日 08:55:20 投稿：shichen2014
这篇文章主要介绍了delphi字符串分隔函数用法,通过自定义函数SeparateTerms2实现将字符串分割后存入字符串列表的功能,具有一定的实用价值,需要的朋友可以参考下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
本文实例讲述了delphi字符串分隔函数用法。分享给大家供大家参考。具体实现方法如下：
该实例可实现根据字符串Separator的表示将字符串s分隔为若干个字符串，存入rs字符串列表中，具体代码如下：
复制代码 代码如下:
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;
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;
希望本文所述对大家的Delphi程序设计有所帮助。
相关文章
这篇文章主要介绍了Delphi下OpenGL2d绘图之初始化流程详解,对于OpenGL的总体了解很有帮助,需要的朋友可以参考下2014-07-07
本文为大家详细介绍下delphi实现发送消息控制滚动条，主要函数及用法如下，感兴趣的朋友可以参考下哈2013-06-06
这篇文章主要介绍了Delphi实现读取系统时间与日期完整实例,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了Delphi实现获取磁盘空间大小的方法,是一个很实用的功能,需要的朋友可以参考下2014-07-07
内容： 要利用.INI文件做程序有关数据的存储工作，就需要能读和写.INI 文件，所以列了如下方法给大家参考：2008-03-03
delphi中exit,abort,break,continue的区别介绍
本文详细介绍下delphi中表示跳出的有break，continue, exit，abort, halt, runerror的区别，感兴趣的朋友可以参考下哈，希望对你学习跳出有所帮助2013-04-04
这篇文章主要介绍了Delphi下OpenGL2d绘图之画线的方法,需要的朋友可以参考下2014-07-07
在用Delphi 编程处理文本文件的时候，如果要装载的文件比较大，你可能会想在文件装载过程中提供一个装载进度的提示－－那么你就必需自己编写直接通过文件打开/读取函数来装载文件内容的函数。2008-03-03
这篇文章主要介绍了Delphi 调用外部程序并阻塞到外部程序中的相关知识，本文给大家介绍的非常详细，具有一定的参考借鉴价值,需要的朋友可以参考下2019-09-09
Delphi2007编译的程序在Win7下图标模糊的解决办法
这篇文章主要介绍了Delphi2007编译的程序在Win7下图标模糊的解决办法,需要的朋友可以参考下2014-08-08
最新评论