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;  
最后修改：2009 年 08 月 16 日
© 允许规范转载
一分也是爱