判斷即有中文，又有英文的字符串。

function   ByteType(const   S:   string;   Index:   Integer):   TMbcsByteType;  
  告訴你一個非常有用的函數。  
  bytetype     它可以判斷一個字符串中，某個   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;