文档章节

统计字数

涂孟超
 涂孟超
发布于 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中增加文章字数统计与阅读时长。 起因 昨晚写俩小时的总结,想知道自己一共写了多少字,然后进行了、、、…… 给自己博客增加一个字数统计的功能。以主题语法为例,其他语法可以看...

莫显辉
05/09
0
0
限制UITextView中的字数

很多时候我们想限制textView中的输入字数,我们可以利用函数- (void)textViewDidChange:(UITextView )textView中统计textView实现此功能。通过在此函数中统计你输入的字符的个数,当字数超过...

meilidashijie
2013/01/08
0
1
每天一个linux命令(46):wc命令

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

姬风
2014/04/09
0
0

没有更多内容

加载失败,请刷新页面

加载更多

mysql在查询结果前加序号

在查询结果前加序号: set @rn=0; select @rn:=@rn+1 as 序号,你查询的结果集

lyle_luo
25分钟前
1
0
webpack 工作原理

暂无内容

agenyun
33分钟前
1
0
iOS返回指定控制器或者关闭自己当前控制器

RT。。。 这种情况其实很常见,比如,从A界面进入B界面在进入C界面,如果返回时,直接从C回到A,怎么做?或者说无限跳转进入BCDEF...XYZ。。。之后直接返回某一个界面,怎么做? 其实这种的有...

RainOrz
34分钟前
1
0
文章收藏

对接口或者方法进行性能测试的工具contiperf: http://www.ltesting.net/ceshi/ceshijishu/xncs/2012/1127/205747.html...

月下狼
39分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部