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 程序运行提示 “database login”对话框，让输入adoconnection1 的username和password

Delphi 两字符串之间添加分隔符

Delphi 如何确定屏幕分辨率

Delphi android 拨打电话

Delphi动态创建控件的例子

判断url的有效性

Delphi 手机app打开一个安卓系统支持的文件，比如 pdf

Delphi 获取unixtime

Delphi hextoint

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

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