delphi 实现截取字符串中中文+英文混合截取

时间：2021-07-26 07:47:12
【文件属性】：

文件名称：delphi 实现截取字符串中中文+英文混合截取

文件大小：3KB

文件格式：RAR

更新时间：2021-07-26 07:47:12

delphi 字符串截取 中文

delphi 实现截取字符串中中文+英文混合截取，当字符串中包含中文和英文支付时，有时候会将一个中文截取1半，出现乱码。该demo能很好的解决该问题

立即下载

【文件预览】：
Project1.res
Unit1.~dfm
Unit1.dfm
Project1.cfg
Unit1.pas
Project1.dpr
Project1.dof
Unit1.~pas

网友评论

  • 就是这段东西，就收5分，不值， procedure TForm1.Button1Click(Sender: TObject); var s, s1, s2: string; begin s := 'z哈哈123aaa'; s1 := Copy(s, 1, 2); ShowMessage(s1); if ByteType(s, 2) = mbLeadByte then // 如果是汉字的第一个字符，需要往后移动一位 begin s1 := Copy(s, 1, 3); end; if ByteType(s, 5) = mbTrailByte

相关文章