delphi 如何不出乱码的截取字符串？

对于字符来说，如果使用 AnsiString，则 汉字 占用2个字节，英文字符占用1个字节，这样当截取字符是汉字一部分时，就会出现乱码。

可以参考以下解决办法：

1、将 AnsitString 改为 WideString。delphi 早期版本中，string 默认是 AnsiString，新版本支持 Unicode，默认 string 代表 WideString。由于 WideString 将中文、英文字符都统一用 2 个字节表示，可以避免汉字截断的情况。

2、出现乱码，通常是截取时，汉字占用字节数没有复制完全。这种情况，可以用 ByteType 函数检测复制的字符串（最后一个字节）是否是汉字。

ByteType 函数对取出来的字符进行判断，是一个单字符还是汉字的一部分。如果返回结果是mbLeadByte 就是汉字的第一个字节，mbTrailByte 是汉字的第二个字节，mbSingleByte 是英文字符。

提供参考代码如下：

function GetText(strtxt:string;iLen:integer):string;  

begin  

  //先判断要截取的字符串最后一个字节的类型  

  //如果为汉字的第一个字节则减(加)一位  

  if ByteType(strtxt,iLen) = mbLeadByte then   

  iLen := iLen - 1;  

  result := copy(strtxt,1,iLen);  

end;