把汉字怎么转换成十六进制的数?

Question

把汉字怎么转换成十六进制的数?

Answer 1

s:string;
p:pchar;
i:integer;
s:='好'
p:=s;
for i:=0  to 1 do
s:=s+inttohex(ord(p[1]));
s:=BA C3

Answer 2

//姓名BCD码转换
procedure qtxmBCD(sCKRXM: string; var XMBCD: string);
var
i, j: integer;
  s1, s2: string;
begin
s1 := '';
  s2 := '';
for i:=1 to Length(sCKRXM) do
begin
j := Integer(sCKRXM[i]);
s1 := s1 + Copy(Format('%X ',[j+$100]) ,2,2);
end;
//计算'0'
for j:=1 to 40-Length(s1) do
s2 := s2+'0';
//将'000000'加在BCD码后面
s1 := s1 + s2;
  XMBCD := s1;
end;