Delphi中字符与10/16进制互转换

Delphi中字符与10/16进制互转换

 

showmessage(IntToStr(Ord('a'))+' '+IntToHex(Ord('a'),2));

showmessage(chr(97));

showmessage(IntToStr(Ord('A'))+' '+IntToHex(Ord('A'),2)); 

 showmessage(chr(65));

 

showmessage(IntToHex(Ord('中'),2)+' '+IntToHex(Ord('文'),2));
showmessage(chr(StrToInt('$'+'4E2D'))+chr($6587));

 

 showmessage(IntToStr(Ord('中'))+' '+IntToStr(Ord('文')));
 showmessage(chr(20013)+chr(25991));