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 xe(indy10)tidbytes转ansistring的实现

Delphi xe5做一个android网页框架

Delphi中dataset和json的互转

Delphi 递归遍历treeview树节点

Delphi 执行一个外部程序，当外部程序结束后言主程序立即响应

Delphi程序在每个windows 会话中只执行一次

Delphi中的copy，delete，pos和leftstr,rightstr的用法

Delphi接收文件拖放

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

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