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

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

2013-11-11 21:06:02  來源: Delphi編程 
    ——此文章摘自《Delphi開發經驗技巧寶典》定價 特價 購買>>http://tracklinktechcn/?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>]  


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