急诊：怎样得到一个中文字符的十六进制值？

Question

procedure TForm1.Button1Click(Sender: TObject);
var Str:String;
var i:integer;
begin
        Str:='号';
        For i:=1 to 2 do
        begin
                ShowMessage(IntToHex(Ord(Str[i]),4));
        end;
end;

Answer 1

var
  TempStr:String;
  i,StrLen:integer;
begin
  TempStr:='彭';
  StrLen := Length(TempStr);
  For i:=1 to StrLen do
  begin
    ShowMessage(IntToHex(Ord(TempStr[i]),4));
  end;
end;

Answer 2

var Str:String;
var i:integer;
begin
        Str:='号';                ShowMessage(IntToHex(Ord(Str[1]),2)+inttohex(ord(str[2]),2));end;

Answer 3

中文字是双字节的嘛。procedure TForm1.Button1Click(Sender: TObject);
Var
    Char1,Char2:Byte;
    TempString:String;
begin
    TempString:='我是中国人';
    Char1 := Byte(PChar(TempString)[0]);//中文字第一个字节的值
    Char2 := Byte(PChar(TempString)[1]);//中文字第二个字节的值
    Showmessage( 'Char1= '+IntToStr(Char1)+' Char2= '+IntToStr(Char2));
end;

Answer 4

其实用window自带的字符映射表就可以啦！
嘻嘻