Loading... <p>根据asc码分别进行统计,看有多少字母和符号,汉字分开统计,一个汉字算计数1</p> <p>function TFrm_main.MsgCounter(str: string): string;<br />var<br /> s:string; //保存字符串<br /> i,e,c:integer;//保存变量<br />begin<br /> s:=str;<br /> e:=0;c:=0;<br /> for i:=1 to length(s) do<br /> begin<br /> if (ord(s[i])>=33)and(ord(s[i])<=126) then<br /> //判断字符的顺序号<br /> begin<br /> inc(e);<br /> end<br /> else<br /> if (ord(s[i])>=127) then<br /> //判断字符的顺序号<br /> begin<br /> inc(c);<br /> end;<br /> end; </p> <p> Result:=IntToStr(e+(c div 2));<br />end;</p> 相关文章 成都郫都区:新增本土病例2例 24小时内将完成90余万人采样 关于px、em、rem、rpx、upx的知识 视频防盗链技术方案研究与讲解 JavaScript Array 数组常用函数 SQL将日期按天分类统计 傻猫网络日志11月网站综合统计报告 傻猫网络日志2007年历史统计数据 Delphi字符统计和汉字统计 恭喜本站又刷新了历史记录 Last modification:January 7th, 2011 at 10:03 pm © 允许规范转载 Support 如果觉得我的文章对你有用,请随意赞赏 ×Close Appreciate the author Sweeping payments Pay by AliPay Pay by WeChat
这是什么语言写的呀?
这个是什么语言编写的
代码是用C写的吗?
看起来很觉得,不错,很有帮助,感谢分享了,博主。
站长你好 很喜欢贵站博客 申请贵站友情链接
网址 www.zhuoyue126.cn
标题 卓越
贵站链接已经做好