Delphi判断字符是否中文

function   ByteType(const   S:   string;   Index:   Integer):   TMbcsByteType; 
  //
  //  判断一个字符串中，某个  Char  是单个字母，还是双字节的前一位或后一位。 
  //  mbSingleByte 单字母 
  //  mbLeadByte   双字节第一位 
  //  mbTrailByte  双字节第二位 
  //
  procedure   TForm1.Button2Click(Sender:   TObject); 
  var 
      i   :   integer; 
      s   :   string; 
  begin 
      s   :=   "请问1<2吗"; 
      for   i   :=   1   to   length(s)   do 
      begin 
          if   ByteType(s,i)   =   mbSingleByte   then 
              ShowMessage(s   +   "   的第"   +   inttostr(i)   +   "个字符是西文") 
          else 
              ShowMessage(s   +   "   的第"   +   inttostr(i)   +   "个字符是中文"); 
      end; 
 
  end;
本文来源于 冰山上的播客 http://xinsync.xju.edu.cn , 原文地址：http://xinsync.xju.edu.cn/index.php/archives/4830