Delphi獲取漢字的unicode編碼

Delphi獲取漢字的unicode編碼

 

Delphi7 var n1: Word; W: WideString; begin W := '萬'; n1 := Word(WideChar(W[1])); ShowMessageFmt('%s: %d', [W, n1]);  

Delphi2010

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;