delphi字符串分隔函数用法实例
2018-10-12 13:59
826 查看
本文实例讲述了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;
希望本文所述对大家的Delphi程序设计有所帮助。
您可能感兴趣的文章:
相关文章推荐
- delphi 7 分隔字符串(完整实例)
- Delphi 根据字符串找到函数并执行的实例
- php字符串替换函数substr_replace()用法实例
- Delphi : 字符串截取函数LeftStr,MidStr,RightStr的用法
- php字符串分割函数用法实例
- Linux C字符串替换函数实例详解
- DOM节点的替换或修改函数replaceChild()用法实例
- 终于懂了:Delphi的函数名不是地址,取地址必须遵守Object Pascal的语法(Delphi和C的类比:指针、字符串、函数指针、内存分配等)good
- Delphi 字符串截取函数
- 一起talk C栗子吧(第一百七十七回:C语言实例--字符及字符串输入函数二)
- Numpy中stack(),hstack(),vstack()函数用法介绍及实例
- C语言实现字符串操作函数的实例
- php中fgetcsv()函数用法实例
- 有没有把数组直接转成以逗号分隔的字符串的函数
- PowerShell中查找字符串位置的IndexOf函数使用实例
- SQL字符串分隔函数(fn_split)
- 详解Python中的join()函数的用法(字符串和os.path)
- 浅述python中argsort()函数的实例用法
- vb.net 2008 dataTable Sort()函数和Select()函数用法实例
- DELPHI字符串、数组操作函数