字符转换

Question

如何将十六制整数串转换为字符串
比如'BAA3BEFC'转换字符串应该为'海军'
怎么做！！？？？

Answer 1

(*
如何将十六制整数串转换为字符串
比如'BAA3BEFC'转换字符串应该为'海军'
怎么做！！？？？*)
procedure hextochinese(str:string;var outstr:string);
var i:integer;
    tempstr:string;
begin
  tempstr:='';
  outstr:='';
  for i:=1 to length(str) do
  begin
    if(i mod 2)=0 then
    begin
      tempstr:=tempstr+str[i];
      outstr:=outstr+chr(strtoint(tempstr));
      tempstr:='';
    end
    else
      tempstr:=tempstr+'$'+str[i];
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
var tt:string;
begin
  hextochinese('BAA3BEFC',tt);
  showmessage(tt);
end;