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

本文整理自网络，侵删。

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

解决：

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

相关阅读 >>

Delphi unidbtreegrid判断点击折叠事件

Delphi 10.4.1的编译器bug终于修正了！

Delphi 实现窗口与任务栏右下角对齐

Delphi利用系统环境变量获取常用系统目录

Delphi xe 如何实现("再按一次退出") 然后退出程序

Delphi 进程保护

Delphi 提升Delphi 启动加载速度

Delphi 获取指定进程中的～内存数据

Delphi {$pointermath on} 方便指针操作的编译指令

Delphi+access错误"不正常地定义参数对象。提供了不一致或不完整的信息。"

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 判断特定字符是为单字节还是双字节