汉字的区位码
汉字是由两个字节组成的，本实例是利用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所示。 | 
站点公告