Delphi 判断特定字符是为单字节还是双字节

最新推荐文章于 2020-10-12 08:15:03 发布

dkopg24406

最新推荐文章于 2020-10-12 08:15:03 发布

阅读量429

点赞数

原文链接：http://www.cnblogs.com/blogpro/p/11339714.html

版权

判断特定字符是为单字节还是双字节

// mbSingleByte 单字节字符  
//mbLeadByte 双字节字符首字节 
//mbTrailByte 双字节字符尾字节
 Edit1.Text:='0102030405060708我1112131415';
  n:=Length(WideString(Edit1.Text));
  ShowMessage(IntToStr(n));
 if  ByteType(Edit1.Text,17)=mbLeadByte then
 begin
    //ShowMessage('汉字');
    str:=leftstr(Edit1.Text,16)+' '+rightstr(Edit1.Text,n-16);
    ShowMessage(str);
 end
 else if  ByteType(Edit1.Text,17)=mbSingleByte then
 begin
   ShowMessage('字母');
 end;