判断中英文的函数

五维思考

于 2008-10-03 18:20:00 发布

阅读量1.5k

点赞数

分类专栏： Delphi 文章标签： integer function string

本文链接：https://blog.youkuaiyun.com/3150379/article/details/3014188

版权

Delphi 专栏收录该内容

41 篇文章

订阅专栏

本文介绍了一个用于判断字符串中字符类型的函数functionByteType。通过该函数可以确定字符串中的每个字符是单字节还是双字节字符，并提供了一个示例程序展示如何使用此函数遍历字符串并判断每个字符。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;
 