Delphi如何区分字符是单字节还是双字节表示？

本文共计161个文字，预计阅读时间需要1分钟。

判断特定字符是单字节还是双字节：- 单字节字符：//mbSingleByte 单字节字符- 双字节字符：//mbLeadByte 双字节字符首字- 双字节字符：//mbTrailByte 双字节字符尾字

Edit1.Text:=0102030405060708111213141516; n:==Length(WideString(Edit1));

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

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