汉字转化成十六进制怎么做？

Question

谢谢。

Answer 1

var
  S, sHex: String;
  W: Word;
begin
  S := '你';
  Move(S, W, SizeOf(Word));
  sHex := IntToHex(W, 2);
  ShowMessage(sHex);
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

楼上的这个算法有问题：
1、假设连续使用该算法，第一次运行“你”后，下次运算“我”，两次的结果是一样的。因为指针所指向的栈值没有释放。
2、不能满足对于多字符的运算要求。例如“你们”现提供我的算法如下：（已经经过测试并应用在IC卡系统的写卡功能中）procedure TForm1.Button2Click(Sender: TObject);    
var
    s,str:string;
    i:integer;
begin
    s:=Edit1.Text ;//需要转换成16进制的字符（中英文、单字符或多字符均可）
    for i := 1 to length(s) do
    begin
        str:=str + inttohex(ord(s[i]),2);
    end;
    Edit1.Text :=str;//返回16进制的结果
end;