Delphi中处理汉字的方法

最新推荐文章于 2024-05-27 10:46:11 发布

zhenghui1

最新推荐文章于 2024-05-27 10:46:11 发布

阅读量1w

点赞数

分类专栏： Delphi 文章标签： delphi integer string 测试

本文链接：https://blog.csdn.net/zhenghui1/article/details/5843762

版权

在Delphi中，处理汉字可能会遇到乱码问题。本文介绍了四种方法：1) 利用ByteType函数识别双字节字符；2) 通过Ord函数判断ASCII码识别汉字；3) 使用widestring类型简化处理；4) 应用IsDBCSLeadByte函数。这些方法在Delphi7环境下已测试通过。

摘要由CSDN通过智能技术生成

在Delphi中一个汉字占两个字节，各种字符串处理函数，直接处理字符串中汉字时经常会发生乱码或不显示。我在处理时也是弄了半天，到处找资料，一下是找到的几种处理方法。在Delphi7下测试通过。

一.中文所用的字符全是双字节字符，英文所用的字节全是单字节字符，也就是mbSingleByte。本实例是用ByteType()函数返回字符串指定位置上的字符，如果不是mbSingleByte，则表示为双字节字符。主要代码如下：

procedure TForm1.Button1Click(Sender: TObject);
    var
     s,s1: String;
     i : Integer;
    begin
     s := Edit1.Text;
     i := 0;
     while i<Length(s) do
     begin
      if (ByteType(S,i) <> mbSingleByte) then
      begin
       s1 := s1+ Copy(s,i,2)+' ';
       i := i+2;
      end
      else
       i:= i+1;
     end;
     Label2.Caption := Trim(s1);
    end;