delphi 从给定字符串中截取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;
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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.18521499633789 seconds