大家来拿高分！！！！！！！！！！

Question

怎样获取一个字符的编码？？？？？
比如：汉字“我”的编码？？？？？？？
谢谢！！！！！！！！！！！

Answer 1

好象这样是可以的：
WORD(strChinese[1]) shl 8 + WORD(strChinese[2])
你试试吧！

Answer 2

?直接取word，双字节长度的变量就行了，最好用地址来，
ps 不用高低字节转化

Answer 3

var
  FWS:WideString;
begin
  FWS:='我';
  ShowMessage(WORD(FWS[1]));
end;

Answer 4

楼上的，错了。绝对无法编译通过。
应该是
var
  s :string;
begin
  ShowMessage(IntToStr(Ord(s[1])) + ' ' + IntToStr(Ord(s[2])));
end;
必须保证s中存放的是一个中文，或者双字节的字符

Answer 5

var 
 s:string;w:word;
begin
 s:='我';
 CopyMemory(@w,PChar(s),2);
 ShowMessage(IntToHex(w,4));
end