本文整理自网络,侵删。
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;
相关阅读 >>
Delphi 如何判断clipboard剪切板中的内容的类型
Delphi 新增功能之: ioutils 单元(7): tfile 结构的功能
Delphi firedac 下的 sqlite [9] - 关于排序
关于Delphi xe5 firemonkey 手机屏幕自适应程序问题
更多相关阅读请进入《Delphi》频道 >>