判断中英文的函数

function ByteType(const S: string; Index: Integer): TMbcsByteType;

  函数返回值可以判断一个字符串中，某个Char是单个字母，还是双字节的前一位或后一位。

  返回值：
  mbSingleByte   单字母
  mbLeadByte     双字节第一位
  mbTrailByte    双字节第二位

1.   procedure TForm1.Button2Click(Sender: TObject);
2.   var
3.     i: integer;
4.     s: string;
5.   begin
6.     s := '请问1<2吗';
7.     for i := 1 to length(s) do
8.     begin
9.       if ByteType(s, i) = mbSingleByte then
10.         ShowMessage(s + '   的第' + inttostr(i) + '个字符是西文')
11.       else
12.         ShowMessage(s + '   的第' + inttostr(i) + '个字符是中文');
13.     end;
14.   end;

转载于:https://www.cnblogs.com/zhaoshujie/archive/2008/10/03/9594833.html