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

相关文章