文档章节

统计字数

涂孟超
 涂孟超
发布于 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

没有更多内容

加载失败,请刷新页面

加载更多

存储过程知识点收集

记录下,以后要常用的问题 1、获取刚刚插入数据产生的ID SCOPE_IDENTITY 返回当前作用域的插入后产生的一条ID @@IDENTITY 返回当前表的最后一条ID

轻轻的往前走
10分钟前
0
0
elixir keyword和map的区别

┌──────────────┬────────────┬───────────────────────┐ │ Keyword List │ Map/Struct │ HashDict (deprec...

wmzsonic
13分钟前
0
0
解决bootstrap-table-fixed-columns.js显示列与隐藏列按钮切换表格不对齐

<table class="table-striped table-hasthead nowrap" id="tableTest1" data-search="true" data-show-columns="true" data-fixed-columns="true" data-fixed-number="3"></table> 含有dat......

tianyawhl
15分钟前
0
0
ES6 系列之 defineProperty 与 proxy

摘要: ## 前言 我们或多或少都听过“数据绑定”这个词,“数据绑定”的关键在于监听数据的变化,可是对于这样一个对象:`var obj = {value: 1}`,我们该怎么知道 obj 发生了改变呢? ## def...

阿里云官方博客
21分钟前
0
0
美团点评携手 PingCAP 开启新一代数据库深度实践之旅(9000 字长文 / 真实“踩坑”经历)

一、背景和现状 在美团,基于 MySQL 构建的传统关系型数据库服务已经难于支撑公司业务的爆发式增长,促使我们去探索更合理的数据存储方案和实践新的运维方式。随着近一两年来分布式数据库大放...

TiDB
21分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部