CSDN博客

img 3150379

判断中英文的函数

发表于2008/10/3 18:20:00  1043人阅读

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;
0 0

相关博文

我的热门文章

img
取 消
img