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

——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥  购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

http://developcsaicn/delphi/images/jpg>

图 根据ASCII码获得字母

主要代码如下

procedure TFormButtonClick(Sender: TObject);

begin

if (((StrToInt(EditText))>=)and((StrToInt(EditText))<=))or

(((StrToInt(EditText))>=)and((StrToInt(EditText))<=)) then

EditText:=chr(strtoint(editText));

end;

字母的ASCII码

本实例是用ord ()函数将字符转换成ASCII码运行结果如图所示

http://developcsaicn/delphi/images/jpg>

图 获得字母的ASCII码

主要代码如下

procedure TFormEditKeyPress(Sender: TObject; var Key: Char);

begin

if not (key in [azAZ#]) then

key:=#;

if (Ord(key)>)and(Ord(key)<) then

x:=IntToStr(Ord(key));

end;

right>[http://developcsaicn/delphi/htm>] []