zoukankan      html  css  js  c++  java
  • delphi字符串分隔函数用法实例

    这篇文章主要介绍了delphi字符串分隔函数用法,通过自定义函数SeparateTerms2实现将字符串分割后存入字符串列表的功能,具有一定的实用价值,需要的朋友可以参考下

    本文实例讲述了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;
  • 相关阅读:
    定位--position属性
    浮动
    超链接伪类
    对齐方式
    字体样式
    标准文档流
    CSS
    表单
    框架
    内部类
  • 原文地址:https://www.cnblogs.com/jijm123/p/11413946.html
Copyright © 2011-2022 走看看