萧淑慎的第一个老公:判断中英文的函数

来源:百度文库 编辑:中财网 时间:2024/03/29 20:01:57

判断中英文的函数

分类: Delphi 2008-10-03 18:20 177人阅读 评论(0) 收藏 举报

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;