主页 > 编程资料 > Delphi >
发布时间:2015-09-22 作者:网络 阅读:77次

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

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

单字节找成的

需要使用 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;
关键字词: