知识大全字符串的个数问题[1]

Posted 2022-07-22 知

篇首语：一身转战三千里，一剑曾当百万师。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全字符串的个数问题[1]相关的知识，希望对你有一定的参考价值。

Delphi开发技巧：字符串的个数问题[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

——此文章摘自《Delphi开发经验技巧宝典》定价￥　特价￥购买>>//track linktech cn/?m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>

获取文字中英文单词的个数

本实例是通过空格逗号句号问号和感叹号来判断字符串中有多少个单词运行结果如图所示

//develop csai cn/delphi/images/ jpg >图获取文字中英文单词的个数

程序代码如下 procedure TForm Button Click(Sender: TObject); var s:String; i t:Integer; begin t:= ; s:=trim(Edit Text); for i:= to Length(s) do begin if (((Copy(s i )>= a ) and (Copy(s i )<= z )) or ((Copy(s i )>= A ) and (Copy(s i )<= Z ))) then begin if (not (((Copy(s i+ )>= a )and(Copy(s i+ )<= z ))or((Copy(s i+ )>= A ) and(Copy(s i+ )<= Z )))) or (Copy(s i+ )=# ) or (Copy(s i+ )= ) or (Copy(s i+ )= ) or (Copy(s i+ )= ? ) or (Copy(s i+ )= ! ) then begin t := t+ ; end; end; end; Label Caption := IntToStr(t); end;

两个子字符串之间的字符的个数

本实例是用pos()函数来获取子字符串在字符串中的起始位置并用后面的子字符的起始位置减去前面子字符串的起始位置再减去前面子字符串的长度这样就得到了字符串中两个子字符串之间的字符的个数运行结果如图所示

//develop csai cn/delphi/images/ jpg >图两个子字符串之间的字符的个数

cha138/Article/program/Delphi/201311/8464

知识大全 字符串的个数问题[1]

知识大全字符串的个数问题[1]