从给定字符串中截取n个字节的字符（解决汉字截取乱码问题）
function GetNBytesChar(s: Ansistring; n: Integer): string; var aStr: AnsiString; bStr: WideString; begin aStr := Copy(s, 1, n); bStr := aStr; if aStr = bStr then Result := astr else Result := Copy(s, 1, n-1); end; 来源： oschina 链接： https://my.oschina.net/u/582827/blog/544487