——此文章摘自《Delphi开发经验技巧宝典》定价
￥
特价
￥
购买>>http://track
linktech
cn/?m_id=dangdang&a_id=A
&l=
&l_type
=
width=
height=
border=
nosave>
汉字的区位码
汉字是由两个字节组成的本实例是利用byte()函数来获取汉字两个字节的字节数并通过两个字节数与$a的差组合成汉字的区位码运行结果如图所示
http://developcsaicn/delphi/images/jpg>
图 获得汉字的区位码
主要代码如下
procedure TFormButtonClick(Sender: TObject);
var
str:String;
hilo:Integer;
begin
str:=Trim(EditText);
hi:=byte(str[])$a;
lo:=byte(str[])$a;
EditText:=IntToStr(hi)+IntToStr(lo);
end;
区位码获取汉字
本实例是将区位码的前两位与后两位分别加上$a再用Char()函数将前两位和后两位区位码转换成字符这两个字符组合形成相对应的汉字运行结果如图所示
http://developcsaicn/delphi/images/jpg>
图 通过区位码获取汉字
主要代码如下
procedure TFormButtonClick(Sender: TObject);
var
S : String;
lefref : Integer;
begin
S := Trim(EditText);
lef := StrToInt(copy(S))+$a;
ref := StrToInt(copy(S))+$a;
EditText := char(lef)+chr(ref);
end;
ASCII码获得字母
本实例是用chr()函数将指定范围内的ASCII码转换成字符运行结果如图所示
right>[] [http://developcsaicn/delphi/htm>]
![Delphi开发技巧：ASCII码与编码转换[1]](/UploadFiles/6.jpg)