当前位置: 首页 > 编程笔记 >

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

百里嘉泽
2023-03-14
本文向大家介绍delphi字符串分隔函数用法实例,包括了delphi字符串分隔函数用法实例的使用技巧和注意事项,需要的朋友参考一下

本文实例讲述了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程序设计有所帮助。

 类似资料:
  • 本文向大家介绍php字符串分割函数用法实例,包括了php字符串分割函数用法实例的使用技巧和注意事项,需要的朋友参考一下 本文实例讲述了php字符串分割函数用法。分享给大家供大家参考。具体分析如下: php中explode 和 split 函数用来分割字符串。 explode函数语法如下 explode函数通过子字符串进行分割,效率比split要高 split函数语法如下 split通过正则表达式对

  • 我想在拆分函数调用中使用空格作为分隔符,但我想在单个单元格数组中输入某些单词;例如。 例如: 在带有一些分隔符的函数拆分调用之后,输出应如下所示: 我需要找到一个分隔符(或正则表达式模式)用于split函数。我如何着手做那件事?

  • 问题内容: 我有一个类似下面的字符串行: A:B:C:D:E:F:G:H:I:J:K:L:M 这意味着定界符(:)的计数为12。这行是有效的。 现在假设您有以下一行: A:B:C:D:E:F:G:H ::::: 这行也是有效的,因为它包含12个定界符。其中存在8个值,而4个值为空白。 现在,以下行应该无效: A:B:C:D:E:F:-无效-因为它仅包含6个值,但预期为12个。 这该怎么做 .. ?

  • 如何将过滤器列表拆分为单个过滤器元件?split2String在线程“main”java.util.regex中导致:异常。PatternSyntaxException:索引10或(|和)附近的未闭合组(

  • 本文向大家介绍SQL server中字符串逗号分隔函数分享,包括了SQL server中字符串逗号分隔函数分享的使用技巧和注意事项,需要的朋友参考一下 继SQl -Function创建函数数据库输出的结果用逗号隔开,在开发中也有许多以参数的形式传入带逗号字条串参数(数据大时不建议这样做) 例:查找姓名为“张三,李二” 的数据此时在数据库里就要对此参数做处理如图: 函数代码如下 好了,关于sql字符

  • 本文向大家介绍使用lua实现split字符串分隔,包括了使用lua实现split字符串分隔的使用技巧和注意事项,需要的朋友参考一下 LUA并不象其它许多"大而全"的语言那样,包括很多功能,比如网络通讯、图形界面等。但是LUA可以很容易地被扩展:由宿主语言(通常是C或C++)提供这些功能,LUA可以使用它们,就像是本来就内置的功能一样。LUA只包括一个精简的核心和最基本的库。这使得LUA体积小、启动