zoukankan      html  css  js  c++  java
  • 判断中英文的函数

    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;
  • 相关阅读:
    Redis基础
    Windows 10 中 安装 RabbitMQ
    Nginx
    第二章-矩阵
    第一章-行列式
    第六章-微分方程
    第五章-多元函数
    第四章-定积分
    第三章-不定积分
    第二章-导数
  • 原文地址:https://www.cnblogs.com/zhaoshujie/p/9594833.html
Copyright © 2011-2022 走看看