怎么把汉字转换成十进制或十六进代码

如何把汉字转换成十进制或十六进代码？
如何把“中国人民”这几个汉字转换成
十进制代码：20013,22269,20154,27665
或
十六进制代码：$4e2d,$56fd,$4eba,$6c11

然后又怎么把十进制代码：20013,22269,20154,27665
或
十六进制代码：$4e2d,$56fd,$4eba,$6c11
转回去（即转为“中国人民”这几个汉字）


[解决办法]
http://blog.csdn.net/oldguncm/article/details/2845306
[解决办法]
太简单的东西不应该问，也可以百度

var
i: Integer;
s: String;
s_10, S_16: string;
begin
s := Edit1.Text;
Memo1.Clear;
for i := 1 to Length(s) do
begin
s_10 := s_10 + IntTostr(ord(s[i])) + ',';
S_16 := S_16 +'$'+ IntToHex(ord(s[i]), 2) + ',';
end;
Memo1.Lines.Add(s_10);
Memo1.Lines.Add(S_16);
end;