文档章节

统计字数

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 87
阅读 3
收藏 0
//添加 Memo1、Label1、Label2、还有Button1
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  i,sum,e,c,t: Integer;
begin
  s := Memo1.Text;
  e := 0;
  c := 0;
  sum := Length(s);

  for i := 0 to sum do
  begin
    if (Ord(s[i]) >= 33) and (Ord(s[i]) <= 126) then
    begin
      Inc(e);
      Label1.Caption := '字母数: ' + IntToStr(e);
    end;

    if Ord(s[i]) >= 127 then
    begin
      Inc(c);
      Label2.Caption := '汉字数: ' + IntToStr(c div 2);
    end;
  end;
end;

本文转载自:http://www.cnblogs.com/del/archive/2007/12/08/987894.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Asian Word Count

Asian Word Count是一款Wordpress中文字数插件。目前绝大部分字数统计插件均不支持中文(确切来说,我还没有找到支持中文的插件),所以我基于WP Word Count修改制作了这款支持中文、韩文、日...

匿名
2012/04/23
552
0
31.每日一个Linux命令----wc

描述:Word Count命令的功能为统计指定文件中的字节数、字数、行数,并将统计结果显示输出 用法: wc [option] 文件 选项: -c 统计字节数。 -l 统计行数。 -m 统计字符数。这个标志不能与 ...

詹玉香
2016/07/02
12
0
Hexo-文章字数统计与阅读时长

使用在Hexo中增加文章字数统计与阅读时长。 起因 昨晚写俩小时的总结,想知道自己一共写了多少字,然后进行了、、、…… 给自己博客增加一个字数统计的功能。以主题语法为例,其他语法可以看...

莫显辉
2018/05/09
0
0
每天一个linux命令(40):wc命令

Linux系统中的wc(Word Count)命令的功能为统计指定文件中的字节数、字数、行数,并将统计结果显示输出。 1.命令格式: wc [选项]文件... 2.命令功能: 统计指定文件中的字节数、字数、行数...

长平狐
2013/06/17
33
0
每天一个linux命令(46):wc命令

Linux系统中的wc(Word Count)命令的功能为统计指定文件中的字节数、字数、行数,并将统计结果显示输出。 实例1:查看文件的字节数、字数、行数 wc test.txt #行数 单词数 字节数 文件名 实例...

姬风
2014/04/09
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Navicat使用教程:使用Navicat Premium 12自动执行数据库复制(二)

下载Navicat Premium最新版本 Navicat Premium是一个可连接多种数据库的管理工具,它可以让你以单一程序同时连接到MySQL、Oracle及PostgreSQL数据库,让管理不同类型的数据库更加的方便。 与...

电池盒
31分钟前
1
0
简单聊聊Linux学习经历

学习,是我们一生中都规避不了的一个话题,人的一生中都是在不断的学习,无论是功成名就的人士,还是一无是处的小混混,始终都处在一个不断学习的环境中,只是学习的内容千差万别,有的人是为...

linux-tao
31分钟前
1
0
如何才能从程序员成长为实战型架构师?必掌握这7大实战技能经验

想成为一名架构师,但是架构师对应的技能,我应该掌握哪些啊?以及掌握的程度是什么样的?如何成为一名真正的实战性架构师? 我简要分为以下7点来谈谈,从技能的角度抛砖引玉,希望你对你架构...

mikechen优知
42分钟前
2
0
vue里实现echarts中国地图

echartsDemo.vue <template> <div> <div id="chart_example"></div> </div></template><script> // 首先要 cnpm install echarts import echarts from 'echarts' import ......

Danni3
54分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部