怎样将汉字变成十六进制，然后能反过来变成汉字？？？我搜过，没答案？？

Question

能将清楚给个例子，不要蜻蜓点水哦

Answer 1

//把字符串转换成四位十六进制编码
Function MyTenToHex(SStr:String):String;
var
    i:Integer;
    TStr:String;
begin
    for i:=1 to Length(SStr) do
        TStr:=TStr+IntToHex(Ord(Sstr[i]),2);
    Result:=TStr;
end;
//反过来变成汉字
Function MyHexToTen(SStr:String):String;
var
    i:Integer;
    TStr:String;
begin
    for i:=1 to Length(SStr) div 2 do
        TStr:=TStr+Chr(Strtoint('$'+Sstr[2*i-1]+Sstr[2*i]));    Result:=TStr;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  w:WORD;
  c:char;
begin
  s:='你';
  W:=word(s[1]);
  showmessage(Format('%X',[W]));
  c:=char(w);
  showmessage(s);
end;