Delphi中如何准确截取汉字

最新推荐文章于 2024-05-27 10:46:11 发布
最新推荐文章于 2024-05-27 10:46:11 发布
阅读量366 收藏
点赞数
分类专栏： Delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/martian6125/article/details/82018477
版权

在Delphi中，用Length来取字符长度时，如果有汉字，那它会将汉字当成一个字符来计算，而Copy把汉字又当成两个来处理，关键的是Copy一个字符后，我如何知道是否取的是汉字呢？是否把一个汉字取完整了呢？

    判断字符串的长度我们可以不用Length，改用StrLen(PChar(S1))来实现，但Copy呢？

    其实，用ByteType对取出来的字符进行判断，我们可以得知这个字符是一个单字符还是汉字的一部分！

          如果Copy出来的是汉字的第一个字节，就再多Copy一个，凑成完整的汉字。

martian6125
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
delphi 实现截取字符串中中文+英文混合截取
07-06
delphi 实现截取字符串中中文+英文混合截取，当字符串中包含中文和英文支付时，有时候会将一个中文截取1半，出现乱码。该demo能很好的解决该问题
Delphi判断中英文
10-20
本文将详细介绍如何使用 Delphi 来判断字符串中的字符是否为中文字符，并对给定代码片段进行分析。 #### 一、Delphi 中文字符判断原理 在 Delphi 中，中文字符主要通过其字节编码来识别。通常情况下，中文字符在 ...
Delphi 对汉字字符串的截取问题
此情可待成追忆
05-31 710
在Delphi中，用Length来取字符长度时，会将汉字当成两个字节来计算，Copy把汉字当成两个来处理，可能截取半个汉字，那我们如何知道是否取的是汉字呢？是否把一个汉字取完整了呢？其实，可以用ByteType对取出来的字符进行判断是一个单字符还是汉字的一部分！mbLeadByte: 汉字的第一个字节mbTrailByte: 汉字的第二个字节mbSingleByte: 单个的字符，不是中文字符。如...
delphi中之取出字符串中的数字或汉字
m0_37866352的博客
08-24 1739
//之取出数字 var s,tmpStr:string; I:Integer; begin s:=edt1.Text; for I=1 to Length(s) do if s[I] in [‘0’…‘9’] then tmpStr:=tmpStr+s[I]; ShowMessage(tmpStr); end; //之取出汉字 原理 ：在windows中，中文和全角字符都占两个字节， 并且使用了a...
（Delphi中处理字符串）截取中文字符和英文字符，去除所有数字
forgotsnow的专栏
10-18 2955
function TFmxsdd_dzbh.getTheUnit(str:string):string; var n,i :integer; ch: byte; s:string; begin s:=''; n:=length(str); i:=1; while i<=n do begin if not (str[i] in ['0'..'9']) th
Delphi实现数字与汉字的转换
05-02
在数字与汉字转换中，我们通常涉及到的是数字到汉字的大写数字转换，这是因为在中文环境下，大写的汉字数字常用于正式的财务报告和发票中，以增加数据的可读性和准确性。例如，1 对应 "壹"，2 对应 "贰"，以此类推，...
高效中英文字符串截取方法
04-11
通过这种方式，可以确保截取过程中不会破坏任何中文字符。 ```csharp foreach (byte b in byteArr) { if (n >= p) break; if (b > 127) m++; // 代表当前字节是非ASCII字符的一部分 n++; } ``` 这里的`m`用来...
DELPHI 字符串处理单元
08-19
在Delphi中，`wideString`类型是用来存储Unicode字符串的数据结构，每个字符占用两个字节，能够准确地表示中文、日文、韩文等语言中的双字节字符。与传统的`string`类型（在早期版本的Delphi中，`string`是基于...
Lephone Loczlize Plus 1.06 中文免费版 PE 字串替换器.zip
05-16
Lephone Loczlize Plus 1.06 中文注册版是一个本地化工具，主要用于非资源格式的本地化工作，支持的种类包括非资源格式的 C 编译的程序中的 ASCII 字符串和 UniCode 字符串、非资源格式的 Delphi（C++ Builder）编译...
delphi 字符串截取
08-11
如果要使用LeftStr,RightStr,MidStr必需引用系统单元StrUtils;
delphi 提取字符串中的汉字
文图软件
11-06 4213
<br />原理 ：在windows中，中文和全角字符都占两个字节，<br />并且使用了ascii　chart 2 (codes 128 - 255 )。<br />全角字符的第一个字节总是被置为163，<br />而第二个字节则是相同半角字符码加上128（不包括空格）。<br />如半角a为65，则全角a则是163（第一个字节）、 193 （第二个字节， 128 + 65 ）。<br />而对于中文来讲，它的第一个字节被置为大于163，（<br />如 ' 阿 ' 为: 176   162 ）,我们可以
解决Delphi截取字符串时遇到半个汉字
wok71wok
07-06 741
　　演示程序中主要是用了 IsDBCSLeadByte 这个 API 来判断某字节是否在双字节字符集(例如汉字)的前导字节集中(GB 2312-80 汉字编码中的第一个字节范围 0xA1-0xFe) 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　CutLengthOfLine{ 被处理字符串的总长度 }, i, j: i...
Delphi 处理在字符串截取中避免出现半个汉字
weixin_30693183的博客
12-07 215
2007年12月7日//..处理中英文混杂左截取 function LeftStrEx(const AText: string; ACount: Integer): string; var I,ChrLen, BreakLen:Integer; IsMBCS:Boolean; begin I := 1; BreakLen := 0; IsMBCS :...
关于Delphi中使用正则表达式获取汉字的问题
天涯的博客
07-15 750
最近在使用Delphi XE编写程序的过程中，需要统计一个字符串中的英文字母，数字，汉字以及其他字符；在网上找了很久关于用Pascal语言提取中文汉字的方法，发现都不能很好的实现，于是经本人亲测有效，发现了使用Delphi XE自带的一个正则表达式控件可以实现这一功能。下面就正则表达式提取汉字做一点说明，希望能帮到大家（如果写的不好，还请多多包涵，谢谢！） 在DelphiXE中有一个自带的关于正则表达式的单元：RegularExpressions，在这个单元中有TRegEx类可以使用，当我们需要用正则表达
Delphi中判断字母与汉字
diligentcat的专栏
11-05 1461
procedure TForm1.Button1Click(Sender: TObject); var   s:string;   //保存字符串   i,e,c:integer;//保存变量 begin   s:=memo1.text;   e:=0;c:=0;   for i:=1 to length(s) do     begin     if (ord(s[i])>=33
delphi 判断字符串是否包含汉字
最新发布
173713873
05-27 288
/ 设置是否包含汉字返回值为true。// 是否包含汉字返回值默认为false。// 设置包含汉字位置。// 是否包含汉字返回值。count := 1;// 包含汉字位置默认为1。// 包含汉字位置递增。// judgeStr：要判断的字符串。//delphi 判断字符串是否包含汉字。//posInt：第一个汉字位置。// 循环判断每个字符。
delphi之字符串截取
weixin_30781107的博客
02-24 183
如：000043213000 截取后：432130 delphi 代码： var ii:integer; svalue:varchar(255); sPatientId:='000043213000'; sValue := Copy(sPatientId, 1, 10) ; for ii:=1 to Length(sValue) do begi...
中文Delphi实例全解编程教程
《中文Delphi实例全解教程》是一本实用且全面的Delphi学习资料，通过实例教学，让读者在实践中掌握Delphi的各项功能，提升编程能力。无论是对于个人兴趣还是专业发展，这本书都是学习Delphi的理想选择。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

martian6125

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值