Delphi截取字符串 防止中文截断

本文整理自网络，侵删。

 
function GetText(strtxt:string;iLen:integer):string;
begin
//先判断要截取的字符串最后一个字节的类型
//如果为汉字的第一个字节则减(加)一位
if ByteType(strtxt,iLen) = mbLeadByte then 
iLen := iLen - 1;
result := copy(strtxt,1,iLen) + ’...‘;
end;

 

相关阅读 >>

Delphi 使用钩子函数

Delphi 过滤字符串首位特殊符号

Delphi datasnap 的连接事件顺序图

Delphi 获取任意月份总共有多少天数

Delphi 获取计算机串口列表

Delphi文本转换图片

Delphi一句话获取本机ip

Delphi 文件占坑法过360查杀

Delphi 万能模糊查询

Delphi textfile utf8编码读写

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi截取字符串 防止中文截断