程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi 的字符及字符串[6] - Char(AnsiChar)、WideChar 與其編碼的相互轉換

Delphi 的字符及字符串[6] - Char(AnsiChar)、WideChar 與其編碼的相互轉換

編輯:Delphi

 //Char 類型與其編碼值的轉換:

var
 b: Byte;
 c: Char;
begin
 b := Ord('A');  {返回: 65}
 b := Ord(#65);  {返回: 65}
 b := Ord($41);  {返回: 65}
 b := Ord(#$41); {返回: 65}
 b := Byte('A'); {返回: 65}
 b := Byte(#65); {返回: 65}
 b := Byte($41); {返回: 65}
 b := Byte(#$41); {返回: 65}
 c := Chr(65);  {返回: A }
 c := Chr($41);  {返回: A }
 c := Char(65);  {返回: A }
 c := Char($41); {返回: A }
end;

  //WideChar 類型與其編碼值的轉換; 漢字的 UniCode 編碼范圍是: $4E00..$9FA5

var
 w : Word;
 c : WideChar;
 ws: WideString;
 s : string;
begin
 {准備工作}
 ws := '萬一';
 c := ws[1];
//ShowMessage(c); {萬}
 {從漢字到 UniCode 編碼}
 w := Ord(c);         {返回十進制數    : 19975}
 w := Word(c);         {返回十進制數    : 19975}
 s := Format('%.4x',[Ord(c)]); {返回十六進制的字符串: 4E07 }
 s := IntToHex(Ord(c), 4);   {返回十六進制的字符串: 4E07 }
 {從 UniCode 編碼到漢字}
 c := #19975;      {萬}
 c := #$4E07;      {萬}
 c := #$4e07;      {萬}
 c := WideChar(19975); {萬}
 c := WideChar($4E07); {萬}
end;


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved