获取汉字编码的几种方法 - 回复"外来天客"的问题

问题来源: http://www.cnblogs.com/del/archive/2008/11/06/1327312.html#1362524

---

var

  n1,n2,n3,n4,n5: Word;

begin

  n1 := Ord('万');

  n2 := Cardinal('万');

  n3 := Integer('万');

  n4 := Word('万');

  n5 := LoWord('万');



  ShowMessageFmt('%s: %d,%d,%d,%d,%d', [#19975,n1,n2,n3,n4,n5]);

  {万: 19975,19975,19975,19975,19975}

end;