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;