提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  后端

当前栏目

delphi字符串分隔函数用法实例

实例 函数 字符串 用法 Delphi 分隔
2023-06-13 09:15:33 时间

本文实例讲述了delphi字符串分隔函数用法。分享给大家供大家参考。具体实现方法如下：

该实例可实现根据字符串Separator的表示将字符串s分隔为若干个字符串，存入rs字符串列表中，具体代码如下：

复制代码代码如下:
procedureSeparateTerms2(s:string;Separator:string;varrs:TStringList);
var
 AStr:string;
 idx:Integer;
 ASubStr:string;
begin
 AStr:=Trim(s);
 whilePos(Separator,AStr)>0do
 begin
   idx:=Pos(Separator,AStr);
   ASubStr:=Copy(AStr,1,idx-1);
   rs.Add(ASubStr);
   AStr:=Copy(AStr,idx+1,Length(AStr));
 end;
 ifAStr+"a"<>"a"then rs.Add(AStr);//如果存在剩余的字符串，则将其存入字符串列表中
end;

希望本文所述对大家的Delphi程序设计有所帮助。

相关文章