AI摘要

这篇文章介绍了一个Delphi函数，用于统计输入字符串中的字母、符号和汉字数量。函数通过遍历字符串中的每个字符，并根据ASCII码值判断字符类型，分别计数字母和符号（ASCII码33-126）以及汉字（ASCII码大于127）。最后，函数返回字母和符号的总数加上汉字数量的一半（因为一个汉字计为1）。
这篇文章介绍了一个Del

根据asc码分别进行统计，看有多少字母和符号，汉字分开统计，一个汉字算计数1

function TFrm_main.MsgCounter(str: string): string;
var
  s:string;   //保存字符串
  i,e,c:integer;//保存变量
begin
  s:=str;
  e:=0;c:=0;
  for i:=1 to length(s) do
  begin
    if (ord(s[i])>=33)and(ord(s[i])<=126) then
    //判断字符的顺序号
      begin
        inc(e);
      end
    else
    if (ord(s[i])>=127) then
    //判断字符的顺序号
      begin
        inc(c);
      end;
  end;  

  Result:=IntToStr(e+(c div 2));
end;

最后修改：2011 年 01 月 07 日
© 允许规范转载
点赞的人是最酷的