Delphi 字符串中末位是双字节字符的处理（避免最后一位为乱码）

本文整理自网络，侵删。

 当在报表里显示，或文本里显示字符串时，由于长度有限从而要切掉一部分字符，保留前边的，当串中

同时包含单字节和双字节字符时，在切掉串后可能会在末位出现乱码，由于把末位的双字节字符切成了

单字节找成的

需要使用 mbLeadByte  函数来判断

用法如下

Len  := Length(astr);
  if Len >= 20 then    //只显示20个字符
  begin
    if mbLeadByte=ByteType(astr,20) then   //判断第20个字符是否是双字节字符
      astr := Copy(aStr,1,19)                            //是的话取前19个字符就可以了
   else
     astr := Copy(aStr,1,20);                            
  end; 

相关阅读 >>

Delphi 在firemonkey应用程序中使用torientationsensor获取设备倾斜和指南针航向

Delphi检测本机的网络连接状态的三种方法

Delphi 通过api 隐藏任务栏时间日期

Delphi listbox模糊查找文字

dll 的静态调用实例代码

Delphi unigi unidbtreegrid展开叠起 unidbgrid自动调节列宽

Delphi trim 删除字符串左右两边的空格

Delphi 获取当前目录下的.txt文本不要带后缀扩展名

Delphi通过进程id获取主窗句柄

Delphi把域名转换成ip

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

转载请注明出处：木庄网络博客 » Delphi 字符串中末位是双字节字符的处理（避免最后一位为乱码）