Delphi字符统计和汉字统计

博主： samool
发布时间：2007 年 10 月 21 日
8678 次浏览
暂无评论
1253字数
分类：搞软件

<div class="codeText"><div class="codeHead">delphi代码</div><ol class="dp-delphi"> <li class="alt">procedure TForm1.btn1Click(Sender: TObject);   </li> <li class="">var i,e,c:integer;   </li> <li class="alt">    s:string;   </li> <li class="">begin    </li> <li class="alt">    s:=mmo1.Text ;   </li> <li class="">    e:=0;c:=0;   </li> <li class="alt">    for i:=1 to length(s) do  </li> <li class="">    begin  </li> <li class="alt">      if(ord(s[i])>=33)and(ord(s[i])<=126) then  </li> <li class="">      begin  </li> <li class="alt">      inc(e);   </li> <li class="">      Label1.Caption:=inttostr(e);  //字符个数  </li> <li class="alt">      end  </li> <li class="">      else  if (ord(s[i])>=127) then  </li> <li class="alt">      begin  </li> <li class="">      inc(c);   </li> <li class="alt">      Label2.Caption:=inttostr(c div 2);  //汉字个数 </li> <li class="">      end;   </li> <li class="alt">    end;   </li> <li class="">end;  </li></ol></div>

AI摘要

这篇文章提供了一个Delphi代码示例，用于统计字符串中的字符和汉字数量。代码通过遍历字符串，检查每个字符的ASCII值来区分字符和汉字，并使用两个变量e和c分别计数。最后，将计数结果显示在两个标签上。

这篇文章提供了一个Delphi代

delphi代码