——此文章摘自《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 TForm
Button
Click(Sender: TObject);
var
str:String;
hi
lo:Integer;
begin
str:=Trim(Edit
Text);
hi:=byte(str[
])
$a
;
lo:=byte(str[
])
$a
;
Edit
Text:=IntToStr(hi)+IntToStr(lo);
end;
區位碼獲取漢字
本實例是將區位碼的前兩位與後兩位分別加上$a再用Char()函數將前兩位和後兩位區位碼轉換成字符這兩個字符組合形成相對應的漢字運行結果如圖所示
http://developcsaicn/delphi/images/jpg>
圖 通過區位碼獲取漢字
主要代碼如下
procedure TForm
Button
Click(Sender: TObject);
var
S : String;
lef
ref : Integer;
begin
S := Trim(Edit
Text);
lef := StrToInt(copy(S
))+$a
;
ref := StrToInt(copy(S
))+$a
;
Edit
Text := char(lef)+chr(ref);
end;
ASCII碼獲得字母
本實例是用chr()函數將指定范圍內的ASCII碼轉換成字符運行結果如圖所示
right>[] [http://developcsaicn/delphi/htm>]
From:http://tw.wingwit.com/Article/program/Delphi/201311/8496.html