如何求汉字的ASCⅡ码

怎么求汉字的ASCⅡ码？
当然是用delphi来写，这里不讨论汉字叫ascⅡ码还是叫机内码！
请给出具体的代码，请写清楚每个变量的类型
------解决方案--------------------



var

  c:char;

begin

  c:='汉';

  showmessage(IntToStr(ord(c))));

------解决方案--------------------
D7中char与AnsiChar一样
Xe2中char与AnsiChar有区别，
xe2中，Char占2个字节以UniCode存储汉字。AnsiChar占一个字节，以国标码存储汉字。

例



var

  c:array[0..1] of AnsiChar;

begin

  c:='汉';

  showmessage(inttostr(ord(c[0])));

  showmessage(inttostr(ord(c[1])));