猫
Delphi技术
日志阅读：1910
日志评论：0

上一篇日志 «
下一篇日志 »

Delphi字符统计和汉字统计

该日志由 samool 发表于 2007-10-21 10:31 PM



delphi代码
  1. procedure TForm1.btn1Click(Sender: TObject);   
  2. var i,e,c:integer;   
  3.     s:string;   
  4. begin    
  5.     s:=mmo1.Text ;   
  6.     e:=0;c:=0;   
  7.     for i:=1 to length(s) do  
  8.     begin  
  9.       if(ord(s[i])>=33)and(ord(s[i])<=126) then  
  10.       begin  
  11.       inc(e);   
  12.       Label1.Caption:=inttostr(e);  //字符个数  
  13.       end  
  14.       else  if (ord(s[i])>=127) then  
  15.       begin  
  16.       inc(c);   
  17.       Label2.Caption:=inttostr(c div 2);  //汉字个数 
  18.       end;   
  19.     end;   
  20. end;  

 傻猫网络日志标签:    汉字, 字符, 统计  tiffany jewelry  
网摘： Yahoo Baidu Google Bolaa 365Key Yesky Wozhai POCO ViVi YouNote Hexun Del.icio.us Yeeyoo igooi I2Key Cn3 Bytemen Furl Blinklist Blogmarks Technorati 分享到饭否
相关文章： (最多只显示5条记录)

SQL将日期按天分类统计 (浏览：2676, 评论：1)
傻猫网络日志11月网站综合统计报告 (浏览：2559, 评论：0)
傻猫网络日志2007年历史统计数据 (浏览：2700, 评论：4)
汇编级超快字符串替换函数 (浏览：2718, 评论：0)
恭喜本站又刷新了历史记录 (浏览：1388, 评论：0)
发表评论：( 来了就留个脚印吧！你的参与是我最大的动力！)

    

(单击图片换张图片)