delphi 怎么计算一个memo中输入的汉字数目

本文整理自网络，侵删。

 
1. 实时显示输入汉字与英文字母数目：
procedure TForm1.Memo1Change(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);
      end;
      if Ord(s[i]) >= 127 then
      begin
        Inc(c);
      end;
  end;
  Label1.Caption := '字母数: ' + IntToStr(e)+ '  汉字数: ' + IntToStr(c div 2);
end;
2. 限制memo中输入字符数目:
设置MaxLength属性为你想要的数字。
 

相关阅读 >>

Delphi firedac 下的 sqlite 创建数据库

Delphi判断驱动器类型

Delphi xe10 对 json的解析应用

Delphi实现音频传输

Delphi利用微软sapi实现语音控制(Delphi，tts,sr，灰色代码)_

Delphi 汉字与区位码

Delphi edgebrowser1 浏览器实现控制滚动条

Delphi xe5复制粘贴操作

Delphi 使用钩子函数 - 数据传递

Delphi根据输入日期按年月周日输出日期段

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 怎么计算一个memo中输入的汉字数目