Delphi开发技巧：ASCII码与编码转换[1]

    汉字的区位码

    汉字是由两个字节组成的，本实例是利用byte()函数来获取汉字两个字节的字节数，并通过两个字节数与$a0的差，组合成汉字的区位码。运行结果如图5.1所示。

图5.1  获得汉字的区位码

    主要代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
      str:String;
      hi,lo:Integer;
    begin
      str:=Trim(Edit2.Text);
      hi:=byte(str[1])-$a0;
      lo:=byte(str[2])-$a0;
      Edit1.Text:=IntToStr(hi)+IntToStr(lo);
    end;

    区位码获取汉字

    本实例是将区位码的前两位与后两位分别加上$a0，再用Char()函数将前两位和后两位区位码转换成字符，这两个字符组合形成相对应的汉字。运行结果如图5.2所示。

图5.2  通过区位码获取汉字

    主要代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
     S : String;
     lef,ref : Integer;
    begin
      S := Trim(Edit1.Text);
      lef := StrToInt(copy(S,1,2))+$a0;
      ref := StrToInt(copy(S,3,2))+$a0;
      Edit2.Text := char(lef)+chr(ref);
    end;

    ASCII码获得字母

    本实例是用chr()函数将指定范围内的ASCII码转换成字符。运行结果如图5.3所示。

• Web开发框架：Wicket1.3发布
• 用DELPHI在状态栏中显示进程条[2]
• 用DELPHI在状态栏中显示进程条[1]
• Delphi 中动态链接库（dll）的建立和使用[2]
• Delphi 中动态链接库（dll）的建立和使用[1]

请您注意
1、遵守中华人民共和国的各项有关法律规定
2、承担一切因您的行为而导致的法律责任
3、本网留言管理人员有权删除其管辖留言内容
4、您在本网的留言本网有权在网站内转载和引用
5、参与本留言即表明您已经阅读并接受上述条款