解决Delphi截取字符串时遇到半个汉字

  演示程序中主要是用了 IsDBCSLeadByte 这个 API 来判断某字节是否在双字节字符集(例如汉字)的前导字节集中(GB 2312-80 汉字编码中的第一个字节范围 0xA1-0xFe)
  procedure TForm1.Button1Click(Sender: TObject);
  var
  CutLengthOfLine{ 被处理字符串的总长度 }, i, j: integer;
  sLine{ 被处理的源字符串 }: string;
  sCuted{ 按固定长度分割出来的部分字符串 }: string;
  iCutLength{ 按固定长度分割出来的部分字符串的长度 }: integer;
  bIsDBCS{ 是否是汉字的前半字节 }: boolean;
  begin
  if edit1.text='' then begin
  exit;
  end;
  CutLengthOfLine:=strtoint(edit1.text);
  if CutLengthOfLine 字符串 iCutLength := CutLengthOfLine; sCuted := Copy(sLine, 1, iCutLength);//从头取出 iCutLength 长的字符串
  bIsDBCS := False;//先假设没有半个字符串 for j := 1 to iCutLength do //从头到尾逐个检查,至于为什么? //原作者是这样解释的
  //1. 为什麽不直接抓最后一个字元判断? 因为中文字的 Trail-byte, 其内码也可能落在 Lead-byte
  // 的内码区间内.
  //2. 为什麽不直接抓最后两个字元来判断? 因为前一个字的 Trail-byte 加上后一个字的 Lead-byte,
  // 可能又是一个中文字.
  begin if bIsDBCS then //如果上一个字节是汉字的前半部分 bIsDBCS := False //则此时本字节是汉字的后半部分, //所以将是否前半个汉字检测标志设为假 else if Windows.IsDBCSLeadByte(byte(sCuted[j])) then bIsDBCS := True;//否则检查本字节,并根据结果设置标志
  end; //end of for
  //如果最后一个字节的上一个字节是汉字的前半部分,则结束时
  //检测标志为假,
  if bIsDBCS then Dec(iCutLength); //如果最后一个字节是汉字的前半部分, 则少截取一个字符,避免乱码 Memo2.Lines.Add(Copy(sLine, 1, iCutLength)); sLine := Copy(sLine, iCutLength + 1, Length(sLine) - iCutLength); //拷贝出下一部分固定长度的字符串,循环处理
  until Length(sLine) <= 0;
  end;
  memo2.setfocus;
  memo2.selstart:=0;
  memo2.SelLength:=0;
  end;
Delphi截取字符串可以使用多种方法。以下是几种常用的方法: 方法一:使用Copy函数 可以使用Copy函数截取字符串的一部分。该函数的语法如下: Copy(SourceString, StartIndex, Count) 其中,SourceString是要截取的原始字符串,StartIndex是截取的起始位置(从1开始计数),Count是要截取的字符数。 方法二:使用Pos和Copy函数的组合 可以先使用Pos函数找到指定字符或字符串的位置,然后再使用Copy函数截取字符串。 方法三:使用字符串处理类(如TStringList)的方法 可以使用字符串处理类(如TStringList)中的方法,如StrSplit函数。该函数可以将字符串按指定的分隔符分割成多个部分,并存储到字符串列表中。然后可以通过列表的索引来获取所需的部分。 以上是几种常见的Delphi截取字符串的方法,您可以根据具体的需求选择合适的方法进行使用。<span class="em">1</span><span class="em">2</span><span class="em">3</span> #### 引用[.reference_title] - *1* [Delphi 截取字符串+详细注释](https://blog.csdn.net/qq_44111597/article/details/112605134)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v93^chatsearchT3_2"}}] [.reference_item style="max-width: 33.333333333333336%"] - *2* [Delphi截取字符串](https://blog.csdn.net/ashionlee/article/details/695689)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v93^chatsearchT3_2"}}] [.reference_item style="max-width: 33.333333333333336%"] - *3* [Delphi控件WMCopyData消息数据发送与接收](https://download.csdn.net/download/weixin_43297334/88253224)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v93^chatsearchT3_2"}}] [.reference_item style="max-width: 33.333333333333336%"] [ .reference_list ]
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值