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

问题来源: 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;