Delphi中如何区分字符是单字节还是双字节？
- 内容介绍
- 文章标签
- 相关推荐
本文共计149个文字，预计阅读时间需要1分钟。
判断特定字符是单字节还是双字节：
单字节字符：/mbSingleByte/双字节字符首字节：/mbLeadByte/双字节字符尾字节：/mbTrailByte/
Edit1.Text:=0102030405060708111213141516n:==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;
本文共计149个文字，预计阅读时间需要1分钟。
判断特定字符是单字节还是双字节：
单字节字符：/mbSingleByte/双字节字符首字节：/mbLeadByte/双字节字符尾字节：/mbTrailByte/
Edit1.Text:=0102030405060708111213141516n:==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;