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 xe5 中tmemo控件的应用――for android

Delphi设计循环播放声音文件程序

Delphi xe更改ttrayicon系统任务栏图标（无模糊）

tmsweb core 组件居中显示

Delphi xe6 读取android设备联系人

Delphi (user agent) of a twebbrowser

Delphi7 写过卡巴主动防御服务端

Delphi rest api post sample

Delphi 如何将字符串中的半角字符转换为全角字符

Delphi编程获取系统当前进程、窗口句柄、文件属性

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

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