熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

Delphi開發技巧:ASCII碼與編碼轉換[2]

2013-11-11 21:06:02  來源: Delphi編程 
    ——此文章摘自《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>]  []  


From:http://tw.wingwit.com/Article/program/Delphi/201311/8497.html
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.